Office中国论坛/Access中国论坛

标题: 树递归中的一个语法问题 [打印本页]

作者: fgffgf 时间: 2005-2-2 02:50
标题: 树递归中的一个语法问题
见附件中的代码。[attach]8884[/attach]

作者: AlexLiu 时间: 2005-2-2 04:17
没必要搞那么复杂，直接一次生成就行了。全部代码如下：Private Sub Form_Load()

TreeView0.Nodes.Add , , "R1", "集团"

Set m = CurrentDb.OpenRecordset("SELECT 内容,父号,子号 FROM 表1 WHERE 父号<>0")

Do Until m.EOF

b = m!子号

q = m!父号 TreeView0.Nodes.Add "R" & q, 4, "R" & b, m!内容

m.MoveNext

Loop

TreeView0.Nodes("R1").Expanded = True '用来展开R1节点的内容

End Sub

作者: fgffgf 时间: 2005-2-2 04:36
谢谢，我还以为必须一层一层来做的呢，原来可以不分顺序的。但是请能不能帮我指出我里面的Set m = CurrentDb.OpenRecordset("SELECT 内容,父号,子号 FROM 表1 WHERE 父号＝i")这句代码到底错在哪里的，下次可能还会遇到这个问题。

作者: zxingkun 时间: 2005-2-4 18:23
父号=i

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)