Question

VB中,显示 实时错误‘35602’集合中的关键字不唯一 错误,如何改

Private Sub Form_Activate() Me.TreeView1.ImageList = Me.ImageList1 TreeView1.LineStyle = 0 Dim nodX As Node Set nodX = TreeView1.Nodes.Add(, , "First", "系统设置", "a") Set nodX = TreeView1.Nodes.Add("First", tvwChild, , "会员消费规定", "b") Set nodX = TreeView1.Nodes.Add("First", tvwChild, , "会员类型设置") End Sub 错误显示在Set nodX = TreeView1.Nodes.Add(, , "First", "系统设置", "a")

Answer 1

代码没问题，在第一个nodes.Add之前加上TreeView1.Nodes.Clear试试，不行的话再试试：
先取消与ImageList的关联，并将Add中的"a"、"b"去掉，如果通过了，看看是不是ImageList1图像索引有问题。

追问

谢谢你，正如你说的，在第一个nodes.Add之前加上TreeView1.Nodes.Clear就可以了。