|
本帖最后由 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"有这说法吗?
你一点击TextBox6就已经添加了关键字了,输入后又要添加,当然出错!
可改成:
Private Sub TextBox6_Enter()
Dim nodx As Node
TreeView1.Nodes.Clear
Set nodx = TreeView1.Nodes.Add(, , "费用", "费用列表")
End Sub
|
|