Question

这个程序是用VB 2008编写的Windows窗体应用程序我有一个数据表（dtSubFolders），我通过它迭代来填充树视图（tv_Folder_Hierarchy），通过将其NodesCollection发送到递归子例程。正如底部数据所证明的那样，NodesCollection似乎正确填充。但是，当我扩展根目录时，我看到它的7个孩子然后我得到一个vs32host.exe已经停止工作错误。

   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 Parent Kids文本
1811无7根文件夹
1818 1811 40奖项创作
1828 1818 0奖励创作子1 1819 1818 0奖励创作子2 1824 1818 0奖励创作子3 1839 1818 0 Award Creation Sub 4

Answer 1

PLICK - 在椅子和键盘之间放置问题。在我的匆忙中，我没有注意到NodeMouseClick事件中的未编码代码。

BAH！

VB Treeview导致vs32host.exe停止工作

1 个答案: