Postada em 28/08/2010 22:33 hs
Ola a Todos ;
Tenho um código que funciona belezinha , alterei a versão do meu commom controls de 5.0(SP2) para o 6.0(SP6) e agora ta gerando erro type mismatch , oque pode estar errado segue o código abaixo?
Dim nodx As Node
tv1.Nodes.Clear
Set tv1.ImageList = ImageList1
Set nodx = tv1.Nodes.Add(, , , "Movimentaçoes", "Resumo")
TabelaEspecie
TB_ESPECIE.LockType = adLockOptimistic
TB_ESPECIE.CursorType = adOpenStatic 'somente leitura
TB_ESPECIE.CursorLocation = adUseServer
TB_ESPECIE.Open "SELECT * FROM ESPECIE ", BD_CAIXA
Do While Not TB_ESPECIE.EOF
Set nodr = tv1.Nodes.Add(nodx, tvwChild, , TB_ESPECIE!descricao, "Pagamentos")
TB_ESPECIE.MoveNext
Loop
FechaTabelaEspecie
nodr.Expanded = True
Set nodx = tv1.Nodes.Add(, , , "Caixa Banco Movimento", "Caixa Conta Movimento")
Set nodr = tv1.Nodes.Add(nodx, tvwChild, , "Exibir Caixa Movimento", "Incluir")
Set nodr = tv1.Nodes.Add(nodx, tvwChild, , "Exibir Banco Movimento", "Banco Movimento")
O erro é na linha :
Set nodx = tv1.Nodes.Add(, , , "Movimentaçoes", "Resumo")
|
