2014-01-10 101 views

回答

0

與您的數據表,你可以試試下面這個方法。如果它找不到父節點,它會添加它。 「查找」功能返回節點的陣列,但在這種情況下,它假定沒有或者一個節點總是發現:

For Each dr As DataRow In dt.Rows 
    AddNode(dr("ParentNode").ToString, dr("NodeName").ToString) 
Next 
TreeView1.ExpandAll() 

Private Sub AddNode(parentNode As String, nodeText As String) 
    Dim node As New List(Of TreeNode) 
    node.AddRange(TreeView1.Nodes.Find(parentNode, True)) 
    If Not node.Any Then 
    node.Add(TreeView1.Nodes.Add(parentNode, parentNode)) 
    End If 
    node(0).Nodes.Add(nodeText, nodeText) 
End Sub 

你會通過你的數據表中的行枚舉使用