Office中国论坛/Access中国论坛

标题: 树控件经常出错提示：key is not unique in collection [打印本页]

作者: wuchju 时间: 2013-7-18 16:57
标题: 树控件经常出错提示：key is not unique in collection
树控件有时运行的好好的，有时出现key is not unique in collection这个提示，但代码未做任何改动，找不出毛病出在什么地方。哪个老师给个解决方法

作者: admin 时间: 2013-7-18 18:14
你的主键有重复. 有时出现,是你可能重新加载一次,但加载前没有清除里面节点,导致KEY重复了

作者: wuchju 时间: 2013-7-19 08:50
那如何清除节点呢

作者: 竹笛 时间: 2013-7-19 12:37
您的主键重复了

作者: wuchju 时间: 2013-7-19 15:50
代码在下面，不知道是哪个主键重复了
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)