Question

代码哪里错了哦？vb查询access数据库连接treeview，提示“集合中的关键字不唯一”

Adodc1.RecordSource = "select ZYMC from ZYLB"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
Key = Adodc1.Recordset.Fields("ZYMC")
Text = Adodc1.Recordset.Fields("ZYMC")
Set node1 = TreeView1.Nodes.Add(, tvwChild, Key, Text)
Adodc1.Recordset.MoveNext

Adodc2.RecordSource = "select FC from FCB where ZYID=" & 1 & "
Adodc2.Refresh
Do While Adodc2.Recordset.EOF = False
Key = Adodc2.Recordset.Fields("FC")
Text = Adodc2.Recordset.Fields("FC")
Set node2 = TreeView1.Nodes.Add(node1.index, tvwChild, Key, Text)
Adodc2.Recordset.MoveNext
Loop
Loop

顺便TreeView1.Nodes.Add(, tvwChild, Key, Text)这句话能用通俗的语句解释下吗？主要是前2个 逗号

Answer 1

数据库中的你的id应该是唯一的吧
你把Key改成Key & rs.Fields("ID")就可以了

TreeView1.Nodes.Add(, tvwChild, Key, Text)---------假设他是儿子

总共有四个参数：1：父亲的名字；2：必须；3：儿子的名字；4：儿子的身体

Answer 2

所有的节点的Key值，不能相同！

搜索一下我的空间里的文章：“Treeview 控件的简单应用”

Answer 3

Key必须是唯一的吧？看看数据库里面“FC”是不是有重复？