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

roych

缺乏子节点的添加操作，供参考。
http://www.office-cn.net/thread-119551-1-1.html
请留意里面的AddChildNode函数。
以下是kingkang的实例，里面使用了递归算法，相对更复杂些许。
http://www.office-cn.net/thread-66634-1-1.html

roych

三个太阳 发表于 2015-7-8 15:38
谢谢roych老师，能帮学生指点一下我的代码的漏洞在哪儿吗？理论上我感觉确实没问题。

键值（key）有问题，请对比你的代码。

1. Private Sub Command1_Click()
   
2. Dim rs As Recordset
   
3. Set rs = CurrentDb.OpenRecordset("select * from 学生表")
   
4. On Error Resume Next '此句是用来处理下面循环里面Index语句的
   
5. ActiveXCtl0.nodes.Add , , "学生管理", "学生管理"
   
6. With rs
   
7. Do Until .EOF
   
8.         If ActiveXCtl0.nodes(.Fields(2)).Index < 0 Then
   
9.         ActiveXCtl0.nodes.Add "学生管理", 4, "K" & .Fields(2), .Fields(2)
   
10.         End If
    
11.         If ActiveXCtl0.nodes(.Fields(3)).Index < 0 Then
    
12.         ActiveXCtl0.nodes.Add "K" & .Fields(2), 4, "KK" & .Fields(3), .Fields(3)
    
13.         End If
    
14.         ActiveXCtl0.nodes.Add "KK" & .Fields(3), 4, "KKK" & .Fields(1), .Fields(1)
    
15. .MoveNext
    
16. Loop
    
17. End With
    
18. End Sub
    

复制代码

roych

三个太阳 发表于 2015-7-8 16:44
难道是节点的K值不能和节点的text值一样？

key值是唯一的。树控件也是根据key值来判断节点的从属关系的。事实上，也只有在忽略掉错误提示时，这段代码才可以运行，否则还是回出错的。

roych

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

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

roych

三个太阳 发表于 2015-7-8 17:28
谢谢老师，我的代码初步设计确实有问题！以下是修改好的：
Private Sub Command1_Click()
Dim rs As Re ...

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