treeview 怎么总是有这个错误返回提示呢？是什么原因？大侠进来。

Question

treeview 怎么总是有这个错误返回提示
                   :实时错误"35602，集合中的值不唯一可能就是两个treeview操作间隔时间太短了吧，怎么来解决呢？怎么避免两个同样的操作在同一时间内多次操作呢？大侠救我呀！谢谢！

Answer 1

你用时间做key，可以取毫秒啊！
要不在添加节点之前先判断一下，如果重复，就不添加了。

Answer 2

key自己设定
不要重复了

Answer 3

捕捉这个错误，并跳过产生错误的key

Answer 4

啊？是不会加key？还是不会取毫秒？还是不知道如何判断key是否重复？

Answer 5

我的一个添加结点的过程'saddtreeview 是treeview近件
'snodekey 是添加节点的key
'sParentKey 是要添加节点的父节点,如果添加的是根点,则此参数为空
'添加树形节点成功返回True,失败返回False
Public Function fAddTreeNode(ByVal sAddTree As TreeView _
                            , ByVal sNodeKey$ _
                            , Optional ByVal sParentKey$ = "" _
                            , Optional ByVal sNodeText$ = "新节点" _
                            , Optional ByVal sNodeCloseImg& = 0 _
                            , Optional ByVal sNodeOpenImg& = 0 _
) As Boolean
    
    Dim iAddNode As Node, iReturn As Boolean
    
    On Error GoTo lbErr
    iReturn = True
    
    If sNodeText = "" Then sNodeText = sNodeKey
    
    If sParentKey = "" Then
        Set iAddNode = sAddTree.Nodes.add(, , sNodeKey, sNodeText, sNodeCloseImg)
    Else
        Set iAddNode = sAddTree.Nodes.add(sParentKey, 4, sNodeKey, sNodeText, sNodeCloseImg)
    End If
    With iAddNode
        .ExpandedImage = sNodeOpenImg
    End With
    GoTo lbExit
lbErr:
    msgbox "错误:"& error,48
    iReturn = False
lbExit:
    fAddTreeNode = iReturn
End Function

Answer 6

出错是  Treename.Nodes.add(前接点标号, 4, 这个值要唯一是本接点的唯一标号, “加的话”, sNodeCloseImg) 可用默认 ,,

Answer 7

to： zjcxc(邹建) 好东东呀，谢谢