求vb.net treeview动态加载表节点

--------------------编程问答-------------------- 急，等待解决 --------------------编程问答--------------------

引用楼主 mybelta2 的回复:

比如根为中国，二级为各个省会，再下边还有更多，级数是不确定的,在网上找了很多，好像都不太好用。

求：1：表结构该如何设计？
2：动态加载节点的代码？

怎么没人回答呢，急啊 --------------------编程问答-------------------- 急等解决 --------------------编程问答-------------------- 网络上一大堆啦。
自己去搜索一下。很多很多的。
http://topic.csdn.net/u/20110816/17/1d146a84-98e8-45c4-987a-8911f8c3dd08.html
参考我回复的 --------------------编程问答-------------------- http://blog.csdn.net/zhaoyu_1979/article/details/6103323 --------------------编程问答--------------------

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

补充：.NET技术 ,  VB.NET