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