vb2005 Treeview ,添加多级子节点问题.

[CsdnBoom]

root
|___a
| |___a1
| |___a11
|
……

用代码添加上面的节点要这样写，

TreeView1.Nodes.Add("root", "root")
TreeView1.Nodes("root").Nodes.Add("a", "a")
TreeView1.Nodes("root").Nodes("a").Nodes.Add("a1", "a1")
TreeView1.Nodes("root").Nodes("a").Nodes("a1").Nodes.Add("a11", "a11")
……

在VB6上直接在父节点上添加就可以了。2005怎么变得这么麻烦，有其它方便的好办法吗？

[bingchener]

http://www.microsoft.com/china/MSDN/library/archives/library/DNAspp/html/aspnet-usingtreeviewieWebcontrol.asp
http://www.cnblogs.com/index/archive/2004/10/28/57904.aspx

[CsdnBoom]

bingchener() 这个方法可以,但如果节点是存放数据库表里,从数据库表里读取出来加载的话,就不好处理?
之前在VB6上使用,直接从表里读取父节点和节点名称,好轻松就实现了.
表结构:
父节点名|本节点名
水果 |苹果
水果 |梨
苹果 |大苹果
苹果 |小苹果

[CsdnBoom]

搜索了好多文章,看来都是用递归了.

[luckczj]

如果要一次生成，肯定用递归好啊，代码少，又好理解

[luckczj]

每个记录设计ID，唯一的，一个父键 指定该节点从属于那个节点ID
假设父键－1是顶层节点。
Sub CreateTree(ByVal PID As Long, ByVal PNode As TreeNode)
Dim i As Integer
Dim myConn As New OleDbConnection(ConnStr)
myConn.Open()

Dim myComm As New OleDbCommand("select * from DataCenter where 父键=@pid", myConn)

myComm.Parameters.Clear()
myComm.Parameters.Add("pid", PID)
Dim dr As OleDbDataReader
dr = myComm.ExecuteReader
PNode.Nodes.Clear()
i = 0
Do While dr.Read
PNode.Nodes.Add(dr.Item("标题"))
CreateTree(PNode.Nodes(i),dr.Item("ID"))
i = i + 1
Loop
dr.Close()
myConn.Close()
End Sub

如果不用DataReader也可以考虑用DataSet代替，相同方法