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

mybelta2 2011-08-26 09:16:52
比如根为中国,二级为各个省会,再下边还有更多,级数是不确定的,在网上找了很多,好像都不太好用。

求:1:表结构该如何设计?
2:动态加载节点的代码?
...全文
207 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
沐NeMo 2011-08-31
  • 打赏
  • 举报
回复
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
沐NeMo 2011-08-31
  • 打赏
  • 举报
回复
网络上一大堆啦。
自己去搜索一下。很多很多的。
http://topic.csdn.net/u/20110816/17/1d146a84-98e8-45c4-987a-8911f8c3dd08.html
参考我回复的
mybelta2 2011-08-30
  • 打赏
  • 举报
回复
急等解决
mybelta2 2011-08-27
  • 打赏
  • 举报
回复
[Quote=引用楼主 mybelta2 的回复:]
比如根为中国,二级为各个省会,再下边还有更多,级数是不确定的,在网上找了很多,好像都不太好用。

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

怎么没人回答呢,急啊
mybelta2 2011-08-26
  • 打赏
  • 举报
回复
急,等待解决

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧