110,545
社区成员
发帖
与我相关
我的任务
分享
Dim tb As DataTable
Dim treeview1 As TreeView
Private Sub fillTree()
For Each row As DataRow In tb.Rows
Dim trNode As New TreeNode
trNode.Text = row("Name")
trNode.Tag = row("id")
If row("end") = 0 Then
treeview1.Nodes.Add(trNode)
Else
For Each nod As TreeNode In treeview1.Nodes
addChildNode(trNode, nod)
Next
End If
Next
End Sub
'用一个递归过程添加子节点
Private Sub addChildNode(ByVal ChildNode As TreeNode, ByVal ParentNode As TreeNode)
If Left(ChildNode.Tag, Len(ChildNode.Tag) - 2) = ParentNode.Tag Then
ParentNode.Nodes.Add(ChildNode)
Else
For Each Nod As TreeNode In ParentNode.Nodes
addChildNode(ChildNode, Nod)
Next
End If
End Sub