[VB.Net] Pb avec les treeview, fan d'algo...

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:

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 :

Citation:

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

sur la ligne :

Citation:

Line 20: TreeView1.Nodes.Add(node)

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

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