[VB.NET] Treeview creer dynamiquement a partir d'une bd

Version imprimable

31/03/2005, 16h10
graphicsxp

[VB.NET] Treeview creer dynamiquement a partir d'une bd

Bonjour,
J'aimerais creer un treeview dynamiquement a partir des resultats d'une requetes.
Supposons que j'ai les resultats suivant :

Colonne1 Colonne2
A B
B C
C E
D B
A F
B E

Alors le tree devrait avoir pour rootnodes:

A
B
C
D
E
F

C'est a dire que je parcours les lignes et j'ajoute a mon tree si ce n'est pas deja dedans.
Pour les childnodes c'est plus delicat. Par exemple le rootnode A aura pour children: B et F, le rootnode B aura pour children: A, C, D et E
...
Mon probleme ce n'est pas trop l'algorithme, c'est plutot comment creer le tree, c'est a dire les methodes a utiliser. J'ai bien trouver la methode Add qui permet d'ajouter un node mais elle ne distingue pas un child node d'un rootnode.
Si quelque peut m'aider la dessus...
Merci
31/03/2005, 16h32
del-dongo

Treeview te permet d'ajouter des Treenode et un treenode a une collection "Nodes" sur laquelle tu peux faire des add...tu as ta hiérarchie...

merci,
en fait j'ai finis 8)
si ca interesse quelqu'un ou si vous voyez un truc qui va pas, merci de me prevenir:

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
        Dim rNodeList As New ArrayList
        Dim cNodeList As New ArrayList  
        With sql
            .Append("select * ")
            .Append("from Relations where webID=1")
        End With
        con.Open()
        myCommand = New SqlCommand(sql.ToString, con)
 
        da.SelectCommand = myCommand
        da.Fill(dsRelations)
 
        For Each dr As DataRow In dsRelations.Tables(0).Rows
            If Not rNodeList.Contains(dr("table1")) Then
                rNodeList.Add(dr("table1"))
                myTree.Nodes.Add(dr("table1"))
            End If
            If Not rNodeList.Contains(dr("table2")) Then
                rNodeList.Add(dr("table2"))
                myTree.Nodes.Add(dr("table2"))
            End If
        Next
 
        For iCntr As Integer = 0 To rNodeList.Count - 1
            myTree.SelectedNode = myTree.Nodes(iCntr)
            For Each dr As DataRow In dsRelations.Tables(0).Rows
                If (rNodeList.Item(iCntr).ToString.Equals(dr("table1")) And _
                    Not cNodeList.Contains(dr("table2"))) Then
                    Dim newNode As TreeNode = New TreeNode(dr("table2"))
                    myTree.SelectedNode.Nodes.Add(newNode)
                    cNodeList.Add(dr("table2"))
                ElseIf (rNodeList.Item(iCntr).ToString.Equals(dr("table2")) And _
                    Not cNodeList.Contains(dr("table1"))) Then
                    Dim newNode As TreeNode = New TreeNode(dr("table1"))
                    myTree.SelectedNode.Nodes.Add(newNode)
                    cNodeList.Add(dr("table1"))
                End If
            Next
            cNodeList.Clear()
        Next
        rNodeList.Clear()

31/03/2005, 17h02
speedy1496

Pense a mettre resolu, merci :D