树递归中的一个语法问题

fgffgf

见附件中的代码。

AlexLiu

没必要搞那么复杂，直接一次生成就行了。全部代码如下：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

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

zxingkun

父号=i