Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4099|回复: 2

[已解决]treeview提示错误:集合中的关键字不是唯一?

[复制链接]
发表于 2013-9-20 16:15 | 显示全部楼层 |阅读模式
本帖最后由 lan8930 于 2013-9-20 16:24 编辑

我建了一个窗体,里面有一个textbox,一个treeview,

Private Sub TextBox6_Enter()
       Dim nodx As Node
    Set nodx = TreeView1.Nodes.Add(, , "费用", "费用列表") ‘这句错误提示错误
            End Sub

这是写在TextBox6的enter下的。运行的时候,提示下面这句
  Set nodx = TreeView1.Nodes.Add(, , "费用", "费用列表")
  这句错误:
集合中的关键字不是唯一,
于是我将关键字 “费用"改成“AB”,“ABCDEF”,“A001”......
都不行,仍然提示这个错误。请问是咋回事?
求教大虾!

刚刚试了一下,把代码写在窗体的Initialize的下面就不跳错,我想,是不是因为 Private Sub TextBox6_Enter不是一次性的。一直处于enter状态,他就会一直加载。加载第二次的时候,就会说不是重复。意思是第一次已经加载过了。treeview不适合放在enter,或是change下,是这样的吗? 还有,Treeview的关键字,是不是不能是数字,或者是文本型的数字,比如"6601","6601.001"有这说法吗?
最佳答案
2013-9-20 16:39
你一点击TextBox6就已经添加了关键字了,输入后又要添加,当然出错!
可改成:
Private Sub TextBox6_Enter()
    Dim nodx As Node
    TreeView1.Nodes.Clear
    Set nodx = TreeView1.Nodes.Add(, , "费用", "费用列表")
End Sub
发表于 2013-9-20 16:39 | 显示全部楼层    本楼为最佳答案   
你一点击TextBox6就已经添加了关键字了,输入后又要添加,当然出错!
可改成:
Private Sub TextBox6_Enter()
    Dim nodx As Node
    TreeView1.Nodes.Clear
    Set nodx = TreeView1.Nodes.Add(, , "费用", "费用列表")
End Sub
回复

使用道具 举报

 楼主| 发表于 2013-9-20 17:00 | 显示全部楼层
本帖最后由 lan8930 于 2013-9-20 17:02 编辑
zjdh 发表于 2013-9-20 16:39
你一点击TextBox6就已经添加了关键字了,输入后又要添加,当然出错!
可改成:
Private Sub TextBox6_Ent ...


谢谢,上面那个我已经明白了。我现在改了,改到窗体的加载里去了。谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 19:03 , Processed in 0.401148 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表