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

[mybelta2]

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

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

[mybelta2]

急，等待解决

[mybelta2]

[Quote=引用楼主 mybelta2 的回复:]
比如根为中国，二级为各个省会，再下边还有更多，级数是不确定的,在网上找了很多，好像都不太好用。

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

怎么没人回答呢，急啊

[mybelta2]

急等解决

[沐NeMo]

网络上一大堆啦。
自己去搜索一下。很多很多的。
http://topic.csdn.net/u/20110816/17/1d146a84-98e8-45c4-987a-8911f8c3dd08.html
参考我回复的

[沐NeMo]

http://blog.csdn.net/zhaoyu_1979/article/details/6103323

[沐NeMo]

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