[求助]treeview增加“爷”节点

lovehere

从坛子里下载了“三小时掌握TREEVIEW控件”的例子，很好很强大，但有了新问题，不知道如何增加“爷”节点？是否只能有一个“爷”节点吗？我把我学者做的例子传上来，向高手们请教一下，在目前的例子中如何增加。

aslxt

例如:
Set nodindex = TreeView.Nodes.Add(, , "A", "人员")

lovehere

多谢楼上回复，在附件中尝试这样加过，但提示：集合中的关键字不唯一！

aslxt

'设置最顶级的"爷"
'* ---------------------------
    Set nodindex = TreeView.Nodes.Add(, , "爷", "省份", "K1", "K2")
    nodindex.Sorted = True
    Set nodindex = TreeView.Nodes.Add(, , "爷1", "人员", "K1", "K2")
    nodindex.Sorted = True
'* -----------------------------------------------------------------

注意,"爷"和"爷1"的区别,他们是关键字,不能有重复!,你可以在附件中自己添加有"爷1"以及之后的两行测试一下

lovehere

这个搞定了，
我在“父”一级想把人员表中的姓名加进来，却又不行了，帮看看

    '设置第二级"父"
'* ---------------------------
    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

kkh680

sdsdsdsdsdsdsdsd

wux0707