Problem

detta program är en Windows Form app som är skrivet i VB 2008
Jag har en datatabel (dtSubFolders) genom vilken jag itererar för att fylla i en treeview (tv\_Folder\_Hierarchy) genom att skicka sin NodesCollection till en rekursiv subrutin. NodesCollection verkar vara befolkade korrekt, vilket framgår av data längst ner. Men när jag expanderar roten ser jag dess 7 barn då får jag en vs32host.exe har slutat fungera fel.

   For Each row In dtSubFolders.Rows
        m\_folder\_Node = New TreeNode
        Get\_TV\_Node(tv\_Folder\_Hierarchy.Nodes, row(1).ToString)

        If Len(m\_folder\_Node.Name) > 0 Then
            m\_folder\_Node.Nodes.Add(row(0).ToString, row(2))
        Else
            tv\_Folder\_Hierarchy.Nodes.Add(row(0).ToString, row(2))
        End If
    Next

Private Sub Get\_TV\_Node(ByRef Nodes As TreeNodeCollection, ByVal Name As String)

    Dim node As TreeNode

    If Len(m\_folder\_Node.Name) = 0 Then
        For Each node In Nodes
            If node.Name = Name Then
                m\_folder\_Node = node
                Exit For
            Else
                If node.Nodes.Count > 0 Then Get\_TV\_Node(node.Nodes, Name)
            End If
        Next
    End If
End Sub

ID Föräldra Barn Text

1811 Ingen 7 Root Folder

1818 1811 40 Award Creation

1828 1818 0 Utmärkelse skapelse Del 1

1819 1818 0 Utmärkelse skapande del 2

1824 1818 0 Utmärkelse skapande del 3

1839 1818 0 Award Creation Sub 4