Cargar un TreeView

para asignar padres al treeview seria asi
dim otrv as new treeview 'creo un treeview nuevo si tengo mi treeview no
es necesario declararlo
dim oNodoPadre as new treeviewnode
oNodopadre.Tag = "mivalorkey" 'esta propiedad te va a servir bastante para
saber de que nodo hablas
oNodoPadra.Text="el Nombre del padre"
otrv.nodes.add(oNodoPadre)
'hijos del nodo padre
dim oNodoHijo as new treeviewnode
oNodoHijo.tag = "mivalorkey"
oNodoHijo.text="nombre del hijo"
oNodoPadre.nodes.add(oNodohijo) 'aca adiciono el hijo al padre
otrv.nodes.add(oNodoPadre) 'aca adiciona el Hijo correspondiente al padre
... asi sigues con los demas padres e hijos

espero no haberme equivocado, ya que lo hize a la volada... (Estoy en una
cabina)


suerte y cualquier cosa escribe nomas que aca estamos para ayudarnos

Developers



wrote in message
news:46d001c49076$c1a80050$

hola amigos, tengo una tabla Cuentas.
cod codCuenta codPadre
1 1.00.00 1
2 1.01.00 1
3 1.01.01 2
4 2.00.00 4
5 2.01.00 4
6 2.01.01 5
Como cargo en un treeView de tal manera que me quede
1.00.00
1.01.00
1.01.01
2.00.00

Por lo visto es sencillo, pero he estado intentando como
manejar la cuestion de nodos y se me hace muy complicado
alguien me puede guiar como se podria hacer?

Gracias.

Agregue el codigo completo de mi aplicacion,
interpretalo, el primero manda a llamar a la funcion de
recursividad, esta funcion esta en pre order y funciona
como lo dices con un campo que se llama nodo padre espero
te sirva

Public Sub AbrirArbol(ByVal Arbol As TreeView, ByVal
Configuracion As String, ByVal Catalogo As String)
Dim resp As Boolean
Dim NodoPadre As TreeNode
Dim Renglon As DataRow
Dim Elementopadre As New Item
Arbol.ImageList = myImageList
Arbol.Nodes.Clear()

C_Cons_Equipo = New Consulta
resp = C_Cons_Equipo.Crear("Equipo", "SELECT *
FROM TB_Equipos WHERE ID_Equipo = '" & Configuracion
& "0000" & "'")
If C_Cons_Equipo.Tabla.Tables
("Equipo").Rows.Count = 0 Then
Elementopadre.Catalogo = Catalogo
Elementopadre.Configuracion = Configuracion
Elementopadre.ID_Unico = ""
Elementopadre.NumUnico = ""
Elementopadre.Padre = ""
Elementopadre.Desc_Esp = ""
Elementopadre.Desc_Ing = ""
Elementopadre.Desc_Larga = ""
Elementopadre.Raiz = True
NodoPadre = Arbol.Nodes.Add
(Elementopadre.Catalogo)
NodoPadre.Tag = Elementopadre
Select Case Configuracion.Substring(0, 3)
Case "EQP"
NodoPadre.ImageIndex = 0
NodoPadre.SelectedImageIndex = 0
Case "OPC"
NodoPadre.ImageIndex = 2
NodoPadre.SelectedImageIndex = 2
End Select


Arbol.ImageIndex = 1
Arbol.SelectedImageIndex = 1
Exit Sub
Else
Renglon = C_Cons_Equipo.Tabla.Tables
("Equipo").Rows(0)
End If


Elementopadre.Catalogo = Renglon("Catalogo") & ""
Elementopadre.Configuracion = Renglon("Num_Conf")
Elementopadre.ID_Unico = Renglon("ID_Equipo") & ""
Elementopadre.NumUnico = Renglon("Orden") & ""
Elementopadre.Padre = Renglon("Rel_Padre") & ""
Elementopadre.ID_Unico = Renglon("ID_Equipo")
Elementopadre.NumUnico = ""
Elementopadre.Padre = Renglon("Rel_Padre") & ""
Elementopadre.Desc_Esp = Renglon
("Descripcion_Español") & ""
Elementopadre.Desc_Ing = Renglon
("Descripcion_Ingles") & ""
Elementopadre.Desc_Larga = Renglon
("Descripcion_Larga") & ""
Elementopadre.NodoText = Renglon("NodoText")

Select Case Elementopadre.NodoText
Case False
NodoPadre = Arbol.Nodes.Add
(Elementopadre.Desc_Esp)
Case True
NodoPadre = Arbol.Nodes.Add
(Elementopadre.Desc_Ing)
End Select
NodoPadre.Tag = Elementopadre

Select Case Configuracion.Substring(0, 3)
Case "EQP"
NodoPadre.ImageIndex = 0
NodoPadre.SelectedImageIndex = 0
Case "OPC"
NodoPadre.ImageIndex = 2
NodoPadre.SelectedImageIndex = 2
End Select

Arbol.ImageIndex = 1
Arbol.SelectedImageIndex = 1
RecorreryAbrir(NodoPadre)
Arbol.ExpandAll()
End Sub
Private Sub RecorreryAbrir(ByVal NodoRaiz As TreeNode)
Dim resp As Boolean
Dim ElementoPadre As Item
Dim Texto As String
ElementoPadre = NodoRaiz.Tag
resp = C_Cons_Equipo.Crear("Equipo", "SELECT *
FROM TB_Equipos WHERE Rel_Padre = '" &
ElementoPadre.ID_Unico & "' ORDER BY Orden")
For Each Renglon As DataRow In
C_Cons_Equipo.Tabla.Tables("Equipo").Rows

Dim ElementoHijo As New Item
ElementoHijo.Catalogo = Renglon("Catalogo")
& ""
ElementoHijo.Configuracion = Renglon
("Num_Conf")
ElementoHijo.ID_Unico = Renglon("ID_Equipo")
& ""
ElementoHijo.NumUnico = Renglon("Orden") & ""
ElementoHijo.Padre = Renglon("Rel_Padre") & ""
ElementoHijo.Desc_Esp = Renglon
("Descripcion_Español") & ""
ElementoHijo.Desc_Ing = Renglon
("Descripcion_Ingles") & ""
ElementoHijo.Desc_Larga = Renglon
("Descripcion_Larga") & ""
ElementoHijo.NodoText = Renglon("NodoText")

Dim NodoHijo As New TreeNode
Select Case ElementoHijo.NodoText
Case False
Texto = ElementoHijo.Desc_Esp
Case True
Texto = ElementoHijo.Desc_Ing
End Select
NodoHijo = NodoRaiz.Nodes.Add(Texto)
NodoHijo.Tag = ElementoHijo
RecorreryAbrir(NodoHijo)
Next
End Sub

Gracias por responderme, y disculpas por el restraso, lo
que pasa es andaba ocupado en esto y otras cosas. voy a
revisar sus codigos.

hola amigos, tengo una tabla Cuentas.
cod codCuenta codPadre
1 1.00.00 1
2 1.01.00 1
3 1.01.01 2
4 2.00.00 4
5 2.01.00 4
6 2.01.01 5
Como cargo en un treeView de tal manera que me quede
1.00.00
1.01.00
1.01.01
2.00.00

Por lo visto es sencillo, pero he estado intentando como
manejar la cuestion de nodos y se me hace muy complicado
alguien me puede guiar como se podria hacer?

Gracias.

.