0
這個程序是一個用VB 2008編寫的Windows窗體應用程序 我有一個數據表(dtSubFolders),我通過它將NodesCollection發送到遞歸來遍歷樹視圖(tv_Folder_Hierarchy)子程序。 NodesCollection似乎正確填充,如底部的數據所證明。但是,當我展開根目錄時,我看到它的7個孩子,然後我得到一個vs32host.exe已停止工作錯誤。VB Treeview導致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父兒童文本
1811無7根文件夾
1818 1811 40獎創作
1828 1818 0獎生成子1
1819 1818 0獎生成子2
1824 1818 0獎Creation Sub 3
1839 1818 0 Award Creation Sub 4