大家都帮我看看，我猜测是用递归，但没有头绪，一写就写不下去了！！

[kurtcobain]

数据表结构如下：
名字 父节点的id 第几层 是否有子节点（0：没有 1：有）
id name parent levels haschild
2 中国移动 0 0 1
3 综合管理部 2 1 1
4 计划处 3 2 1
5 赵丹 4 3 0
6 张明 4 3 0
。。。。。
18 人事管理部 2 1 1
。。。。。。
#################################################
我要做的是在form_load时,把表里的数据全部取出,加入treeview1控件供选择用户
可是levels究竟有多少层,无法确定,这棵树的字节点的个数是无法确定的
我应该怎吗写?我猜测是用递归,可是写不出来麻烦各位大哥帮帮我
谢谢了!!

[kurtcobain]

还是各说各的，

[kurtcobain]

葡萄大哥,你就给我将个明白吧，好吗？我看的头大！！！

[jett]

这是代码
rsresource.open "select id,name,parent from table order by levels" ,cn

do until rsresource.eof
if rsresource("parent")=0 then
treeview.nodes.add（,,rsresource("id"),rsresource("NAME")）
else
treeview.nodes.add（rsresource（“parent”）,tvwchild,rsresource("id"),rsresource("NAME")）
end if
rsresource.movenext
loop

[jett]

treeview1.node.add不需要知道是几级的，只要知道上一级是谁并且存在就可以插了
所以先用level排个序就可以一级级的插，遍历一次recordset即可

[jett]

上面的foolishtiger(吴文智)所写的代码实际上和我的一样，不过他对字符串做了些处理，通用性更强一点

[Amoon]

呵呵，老吴啊，耐不住寂寞又回来了？

[ljren_t]

两个循环搞定:
(1).把所有的项都加为无父结点的nodes
(2).给所有有父结点的nodes找到父亲.

[daryl715]

fooloshtiger,fraser01
你们都来了啊，好

[rushing]

应该先确定根结点，
每增加一层，计数器就加一；或者调用递归程序，生成下一级子结点。

[kurtcobain]

葡萄兄，小弟现在已经搞定了(一次把表里的所有数据取出来放入treeview)，可那个变态客户要求又变了，要求在treeview控件上面先有一个combo控件来显示一级的节点，改变combobox时，treeview显示相对应的所有子节点,可我怎吗也想不出怎吗用sql语句取出在id=n节点下面的所有子节点

[kurtcobain]

救我啊！！！！！

[kurtcobain]

葡萄兄，小弟现在已经搞定了(一次把表里的所有数据取出来放入treeview)，可那个变态客户要求又变了，要求在treeview控件上面先有一个combo控件来显示一级的节点，改变combobox时，treeview显示相对应的所有子节点,可我怎吗也想不出怎吗用sql语句取出在id=n节点下面的所有子节点

[ferrytang]

简单的！

[kurtcobain]

别easy呀？？？将明白

[hongtao924]

关注

[cqhydz]

极度关注

[lance]

gzgz

[jett]

你这种表结构用sql是干不了的，至少我不会
这是如何获得Treeview一个Node下所有的子节
Dim yournode As Node
Dim aa As Node
Dim xx
Dim strtofind As String
strtofind = yournode.Key
TreeView1.PathSeparator = "/"
For Each aa In TreeView1.Nodes
If aa.Key = yournode.Key Then GoTo here 'do not want to include yournode
xx = Split(aa.FullPath, "/")
For i = 0 To UBound(xx)
If xx(i) = strtofind Then 'is child node

Next
here:
Next

[jett]

比较差的办法是
把所有纪录先倒到一个treeview里然后把所有子节点
复制到另一个treeview

[jett]

'烦傻了，不应该这么做,这样好点
Private Sub Combo1_Change()
rsresource.open "select id,name,parent from table order by levels", cn
TreeView1.Nodes.Clear
Call TreeView1.Nodes.Add(, , Combo1.Text, Combo1.Text)
Do Until rsresource.EOF
If rsresource("id") = 0 Then GoTo here
On Error GoTo here

Call TreeView.Nodes.Add(rsresource("parent"), tvwChild, rsresource("id"), rsresource("NAME"))
here:
rsresource.movenext
Loop

End Sub
'提醒一下node的key值不能是全数字，你附加点字符串什么的