继续求助：关于treeview目录树

lovehere

首先感谢aslxt的帮助，解决了多个“爷”节点的问题。
问题是一个接着一个啊，现在时在另一个“爷”节点下如何增加父节点。
见附件和附图

lovehere

顶起来，求高手

asklove

不是添加“省份”一样啊，设节点为“爷1”就行了
LOAD再添加下面这些：
    Rec.Open "人员名单", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For i = 0 To Rec.RecordCount - 1
        Set nodindex = TreeView.Nodes.Add("爷1", tvwChild, "父1" & Rec.Fields("编号"), Rec.Fields("姓名"), "K1", "K2")
        nodindex.Sorted = True
        Rec.MoveNext
    Next
    Rec.Close

lovehere

不是添加“省份”一样啊，设节点为“爷1”就行了
LOAD再添加下面这些：
    Rec.Open "人员名单", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For i = 0 To Rec.RecordCo ...
asklove 发表于 2010-3-25 08:13

我昨天就说这么干的，不行啊！

  '设置第二级"父"
'* ---------------------------
    Rec.Open "地区表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For i = 0 To Rec.RecordCount - 1
        Set nodindex = TreeView.Nodes.Add("爷", tvwChild, "父" & Rec.Fields("地区编号"), Rec.Fields("省市名称"), "K1", "K2")
        nodindex.Sorted = True
        Rec.MoveNext
   
    Next
      
    Rec.Close
   
       Rec.Open "人员名单", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For i = 0 To Rec.RecordCount - 1
        Set nodindex = TreeView.Nodes.Add("爷1", tvwChild, "父1" & Rec.Fields("编号"), Rec.Fields("姓名"), "K1", "K2")
        nodindex.Sorted = True
        Rec.MoveNext
   
    Next
      
    Rec.Close

lovehere

提示说：集合中的关键字不唯一。

lovehere

Set nodindex = TreeView.Nodes.Add("爷1", tvwChild, "父1" & Rec.Fields("编号"), Rec.Fields("姓名"), "K1", "K2")
这行是黄色的，可我不知道哪里有问题！

lovehere

真够邪的，在这个例子里试好了，到实际库里就不行！！！真是活见鬼了！！！

lovehere

唉。。。在人员表加一个字段，单独编号就可以了，是不是因为这个原因呢？我原来都用的是自动编号的字段。

aslxt

反正一句话,整个树里面不能有重复的key值,不管他的级别\归属