Visual Basic.NET - Crear TreeView desde un DataTable

Val: 18

Crear TreeView desde un DataTable

Publicado por Daniel (12 intervenciones) el 02/05/2018 05:44:16

Estimados:

Nuevamente recurro a su ayuda, tengo un datatable (lo Llamare Tabla) que ya tiene cargados los datos de una consulta en una base de datos, les resumo mas o menos la estructura de la tabla

BLOQUE                   EDIFICIO                PISO               HABITACION

1                        E1                      1                 101

1                        E1                      1                 102

1                        E1                      2                 201

1                        E1                      2                 202

1                        E2                      1                 H1

1                        E2                      1                 H2

1                        E2                      2                 H3

1                        E2                      2                 H4

quisiera que el Treeview se muestre asi

1
----------E1
--------------------1
------------------------------101
------------------------------102
--------------------2
------------------------------201
------------------------------201
----------E2
--------------------1
------------------------------H1
------------------------------H2
--------------------2
------------------------------H4
------------------------------H4

La verdad soy nuevo en Treeview y no tengo idea de como realizarlo, agradeceria cualquier ayuda que me puedan dar

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 12

Val: 224

Crear TreeView desde un DataTable

Publicado por gilman (81 intervenciones) el 02/05/2018 09:43:30

Prueba:

Private Sub CargarArbol()

    Dim NodoBloque As New TreeNode

    Dim NodoEdificio As TreeNode

    Dim NodoPiso As TreeNode

    Dim NodoHabitacion As TreeNode

    Dim DRS As DataRow() = DT.Select("", "BLOQUE, EDIFICIO, PISO")

    For Each DR As DataRow In DRS

        If NodoBloque.Text <> DR("BLOQUE") Then

            NodoBloque = New TreeNode(DR("BLOQUE"))

            Me.TreeView1.Nodes.Add(NodoBloque)

            NodoEdificio = New TreeNode

        End If

        If NodoEdificio.Text <> DR("EDIFICIO") Then

            NodoEdificio = New TreeNode(DR("EDIFICIO"))

            NodoBloque.Nodes.Add(NodoEdificio)

            NodoPiso = New TreeNode

        End If

        If NodoPiso.Text <> DR("PISO") Then

            NodoPiso = New TreeNode(DR("PISO"))

            NodoBloque.Nodes.Add(NodoPiso)

        End If

        NODOHABITACION=NEW TreeNode(DR("HABITACION")

        NodoPiso.Nodes.Add(NodoHabitacion)

    Next

End Sub

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar