Question

VB runtime error 35602 key is not uniqiue in collection

调试错误指向
Set TmpNode = TreeView1.Nodes.Add(TmpKey, tvwChild, CurKey, rs1!DepName, 2)

Answer 1

树节点的key必须唯一，不唯一就会出现上述错误。

追问

我是定义的CurKey来存放啊，有两条语句，不论怎么调换都指向的是第二条啊，就是
Set TmpNode = TreeView1.Nodes.Add(TmpKey, tvwChild, CurKey, rs1!DepName, "imgClosedFolder")
Set TmpNode = TreeView1.Nodes.Add(TmpKey, tvwChild, CurKey, rs1!DepName, 2)

追答

那当然啦，第一句执行时CurKey在树中是唯一的，第二句执行时CurKey就与第一句的CurKey重复了，所以肯定错误指向第二条

追问

那么如果我重新定义一个KEY节点，这个错误能够解决吗？我是第一次用这个treeview，不太了解啊

追答

dim TmpKey as integer

TmpKey =0
Set TmpNode = TreeView1.Nodes.Add(TmpKey, tvwChild, CurKey, rs1!DepName, "imgClosedFolder")
TmpKey =TmpKey +1
Set TmpNode = TreeView1.Nodes.Add(TmpKey, tvwChild, CurKey, rs1!DepName, 2)

Answer 2

重了TmpNode 或TmpKey，改一下，去VB问