代码正确运行了，但treeview为何没有正常加载数据呢？

三个太阳

roych 发表于 2015-7-8 16:48
key值是唯一的。树控件也是根据key值来判断节点的从属关系的。事实上，也只有在忽略掉错误提示时，这段代 ...

老师，你看看运行结果貌似有些误差

三个太阳

roych 发表于 2015-7-8 17:05
确实存在这个问题。
还是应该改为递归才行。不然的话，这么movenext几下，全都乱套了。

谢谢老师，我的代码初步设计确实有问题！以下是修改好的：
Private Sub Command1_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from 学生表")
On Error Resume Next '此句是用来处理下面循环里面Index语句的
ActiveXCtl0.nodes.Add , , "学生管理", "学生管理"
With rs
Do Until .EOF
        If ActiveXCtl0.nodes("学生管理" & .Fields(2)).Index < 0 Then
        ActiveXCtl0.nodes.Add "学生管理", 4, "学生管理" & .Fields(2), .Fields(2)
        End If
        If ActiveXCtl0.nodes("学生管理" & .Fields(2) & .Fields(3)).Index < 0 Then
        ActiveXCtl0.nodes.Add "学生管理" & .Fields(2), 4, "学生管理" & .Fields(2) & .Fields(3), .Fields(3)
        End If
        ActiveXCtl0.nodes.Add "学生管理" & .Fields(2) & .Fields(3), 4, "学生管理" & .Fields(2) & .Fields(3) & .Fields(0), .Fields(1)
.MoveNext
Loop
End With
End Sub

三个太阳

风中漫步 发表于 2015-7-8 17:11
这种方法感觉比较麻烦啊.再试试循环所有结点,比较路径的方法,看可行吧.
将每个key设为学生管理\年纪\班级

谢谢老师啦，看来确实要把key值设定好！

三个太阳

roych 发表于 2015-7-8 17:31
幸亏也只有三层啊。要是多几层，写起来估计也不是一件太愉快的事情了

是啊，今天麻烦roych版主以及其他的各位老师了！