树控件经常出错提示：key is not unique in collection

wuchju

树控件有时运行的好好的，有时出现key is not unique in collection这个提示，但代码未做任何改动，找不出毛病出在什么地方。哪个老师给个解决方法

admin

你的主键有重复. 有时出现,是你可能重新加载一次,但加载前没有清除里面节点,导致KEY重复了

wuchju

那如何清除节点呢

竹笛

您的主键重复了

wuchju

代码在下面，不知道是哪个主键重复了
Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(, tvwFirst, "主干", "瑞格", "main")
   Set nodX = TreeView1.Nodes.Add("主干", tvwChild, "分支1", "许可证", "one")
   nodX.Sorted = True
   Set nodX = TreeView1.Nodes.Add("分支1", tvwChild, , "已出证许可证", "two")
   Set nodX = TreeView1.Nodes.Add("分支1", tvwChild, , "新申请许可证", "two")
   'nodX.Sorted = True
   Set nodX = TreeView1.Nodes.Add("分支1", tvwChild, , "过期或已用完许可证", "two")
  ' nodX.Sorted = True
   Set nodX = TreeView1.Nodes.Add("分支1", tvwChild, , "被否决许可证", "two")
   Set nodX = TreeView1.Nodes.Add("主干", tvwChild, "分支2", "品名管理", "one")
   Set nodX = TreeView1.Nodes.Add("分支2", tvwChild, , "添加品名", "two")
   nodX.EnsureVisible