Problema con treeview
Publicado por chizo (2 intervenciones) el 07/04/2007 04:22:15
hola q tal? a ver si alguien me da una mano... el problema es el siguiente, estoy tratando de cargar un treeview en vb 6 desde una bdd en access, y me tira un error de "invalid key" cuando comienza a cargar los nodos del arbol, este es el codigo:
Set Nodo = TreeView1.Nodes.Add(, , , "Diskette")
If Not oRs.EOF And Not oRs.BOF Then
If oRs.RecordCount > 0 Then
Do While Not oRs.EOF
Set Nodo = TreeView1.Nodes.Add(x, trvchild, CStr(oRs.Fields("idpadre")),oRs.Fields("nombre")) Set Nodo = TreeView1.Nodes.Add(CStr(oRs.Fields("idpadre")), trvchild, CStr(oRs.Fields("idhijo")),_ oRs.Fields("nombre"))
oRs.MoveNext
Loop
End If
End If
los IDpadre e idHijo, esta en la bdd guardados como numeros enteros, por eso le puse esa funcion para converirlo a caracters, los paso directo, y he colocado los valores en textbox y tomado de ahi peroi igual me tira ese error.
Espero que alguien pueda darme una mano!
gracias de antemano!!!!!!!
Set Nodo = TreeView1.Nodes.Add(, , , "Diskette")
If Not oRs.EOF And Not oRs.BOF Then
If oRs.RecordCount > 0 Then
Do While Not oRs.EOF
Set Nodo = TreeView1.Nodes.Add(x, trvchild, CStr(oRs.Fields("idpadre")),oRs.Fields("nombre")) Set Nodo = TreeView1.Nodes.Add(CStr(oRs.Fields("idpadre")), trvchild, CStr(oRs.Fields("idhijo")),_ oRs.Fields("nombre"))
oRs.MoveNext
Loop
End If
End If
los IDpadre e idHijo, esta en la bdd guardados como numeros enteros, por eso le puse esa funcion para converirlo a caracters, los paso directo, y he colocado los valores en textbox y tomado de ahi peroi igual me tira ese error.
Espero que alguien pueda darme una mano!
gracias de antemano!!!!!!!
Valora esta pregunta


0