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

三个太阳

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

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

风中漫步

发个贴的功夫你们聊了这么多了.

roych

风中漫步 发表于 2015-7-8 16:53
好,斑竹.
看了这段代码,觉的这个地方拿不准:
       If ActiveXCtl0.nodes(.Fields(3)).Index < 0 Then ...

确实存在这个问题。
还是应该改为递归才行。不然的话，这么movenext几下，全都乱套了。

风中漫步

这种方法感觉比较麻烦啊.再试试循环所有结点,比较路径的方法,看可行吧.
将每个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:28
谢谢老师，我的代码初步设计确实有问题！以下是修改好的：
Private Sub Command1_Click()
Dim rs As Re ...

幸亏也只有三层啊。要是多几层，写起来估计也不是一件太愉快的事情了

三个太阳

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

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

WFH6898

看不出来

ssymm

我来看看