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

表结构:

父节点名|本节点名

水果 |苹果

水果 |梨

苹果 |大苹果

苹果 |小苹果

第4楼. 由 CsdnBoom 于 2007-5-2 23:52:35 发表

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

第5楼. 由 luckczj 于 2007-5-3 17:04:44 发表

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

第6楼. 由 luckczj 于 2007-5-3 17:13:08 发表

每个记录设计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代替，相同方法