Discussion :

[graphicsxp]

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

[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...

[graphicsxp]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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()

[speedy1496]

Pense a mettre resolu, merci