2012-07-17 88 views
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

回答

0

PLICK - 問題躺在椅子和鍵盤之間。在我匆忙的時候,我沒有注意到NodeMouseClick事件中的未處理的代碼。

BAH!

相關問題