16,547
社区成员
发帖
与我相关
我的任务
分享
'?再次递归--应该改为:
AddTree(Int32.Parse(Row("PARENTID").ToString()), Node)
Private Sub AddTree(ByVal ParentID As Integer, ByVal pNode As TreeNode)
Dim dvTree As New DataView()
dvTree = New DataView(ds.Tables(0))
'过滤ParentID,得到当前的所有子节点
dvTree.RowFilter = "PARENTID = " + ParentID.ToString
Dim Row As DataRowView
For Each Row In dvTree
Dim Node As New TreeNode
Node.Name = Row.Item("ID")
Node.Text = Row.Item("Context")
Node.Tag = Row.Item("PARENTID")
If pNode Is Nothing Then '判断是否根节点
'?添加根节点
Me.TreeView1.Nodes.Add(Node)
Else
'添加当前节点的子节点
pNode.Nodes.Add(Node)
End If
'?再次递归
AddTree(Int32.Parse(Row("ID").ToString()), Node)
Node.EnsureVisible()
Next
End Sub