Discussion :

[bisounux]

Bonjour à tous,

Je cherche à générer un treeview dynamiquement dans le code. Seulement j'ai un petit problème d'algorithme... Je fais une fonction récursive :

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
 
   Private Sub FaireMenu(ByVal IdParent As Integer, ByVal node As TreeNode)
 
        Dim MesTables As New Tables(NomBdd)
        Dim MaTable As DataTable = MesTables.LireTable(NomTable)
        Dim Macollection As New TreeNodeCollection
        For Each row As DataRow In MaTable.Rows
            If CInt(row("Id_Parent")) = IdParent Then
                Dim nodeEnfant As New TreeNode
                nodeEnfant.Text = row(1).ToString
                node.ChildNodes.Add(nodeEnfant)
                TreeView1.Nodes.Add(node)
                FaireMenu(CInt(row(0)), nodeEnfant)
            End If
        Next
 
 
 
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim node As New TreeNode("ola")
        FaireMenu(0, node)
 
    End Sub

J'ai l'erreur suivante :

Index must be within the bounds of the List.
Parameter name: index

sur la ligne :

Line 20: TreeView1.Nodes.Add(node)

Si quelqu'un a un idée...
Merci d'avance pour vos post.

[bisounux]

En fait c'est ça :

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
    Private Sub FaireMenu(ByVal IdParent As Integer, ByVal node As TreeNode)
 
        Dim MesTables As New Tables(NomBdd)
        Dim MaTable As DataTable = MesTables.LireTable(NomTable)
        Dim Macollection As New TreeNodeCollection
 
        For Each row As DataRow In MaTable.Rows
            If CInt(row("Id_Parent")) = IdParent Then
                Dim nodeEnfant As New TreeNode
                nodeEnfant.Text = row(1).ToString
                node.ChildNodes.Add(nodeEnfant)
                FaireMenu(CInt(row(0)), nodeEnfant)
            End If
        Next
 
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        If Not IsPostBack Then
            Dim node As New TreeNode("Parent")
            TreeView1.Nodes.Add(node)
            FaireMenu(0, node)
        End If
 
    End Sub

Voila pour les prochains...
Le seul inconvénient c'est que le node root ("Parent") est toujours présent. J'essaye de la cacher. Si j'y arrive, je le noterai.