2014-01-10 149 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 

你会通过你的数据表中的行枚举使用