16,549
社区成员
发帖
与我相关
我的任务
分享
Dim tblCatalog as DataTable
Private Sub BindTree()
Dim root As New TreeNode("信息中心", 0, 0)
'root.SelectedImageIndex = 0
'root.ImageIndex = 0
root.Name = 0
root.Tag = 0
Me.Tv.Nodes.Clear()
Me.Tv.Nodes.Add(root)
tblCatalog = SQLhelper.GetTable("select * from tbl_AAA")
Me.AddTree(0, root) '0级别的 ,root作为第一个父节点
End Sub
Private Sub AddTree(ByVal ParentID As Integer, ByVal pNode As TreeNode)
Dim dvTree As DataView = New DataView(tblCatalog)
'过滤ParentID,得到当前的所有子节点
Dim node As TreeNode
dvTree.RowFilter = "ParentID=" & ParentID
If dvTree.Count > 0 Then
For Each r As DataRowView In dvTree
node =New TreeNode
node.Name = r.Item(0) '绑定 ID
node.Text = r.Item(1) '绑定文字说明
node.Tag = r.Item(2) '绑定ParentID
If (pNode Is Nothing) Then
Me.Tv.Nodes.Add(node)
Else
pNode.Nodes.Add(node) '新节点加到父节点
End If
'--再次递归--
Me.AddTree(r.Item(2), node)
Next
End If
pNode.Expand() '展开节点
End Sub