Visual Basic.NET - Crear TreeView desde un DataTable

 
Vista:
sin imagen de perfil
Val: 18
Ha aumentado su posición en 7 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

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

1
2
3
4
5
6
7
8
9
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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de gilman
Val: 224
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Crear TreeView desde un DataTable

Publicado por gilman (81 intervenciones) el 02/05/2018 09:43:30
Prueba:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar