急救!!!!!!!
Xamdf 2003-09-12 10:39:17 On Error GoTo Err_Add
Dim mNode As Node
Dim xh As String '序号
xh = ""
Set mNode = TvwView.Nodes.Add("DNCP", tvwChild)
Sign:mNode.Text = "新建项目" & xh
mNode.Image = "CPZL"
mNode.Key = "CPZL_" & mNode.Text
Exit Sub
Err_Add:
'MsgBox "[" & Err.Number & "]" & Err.Description, vbExclamation, "错误"
xh = Val(xh) + 1
GoTo Sign
我要实现类似于创建新建文件夹、新建文件夹1、新建文件夹2......
可是我的代码不知为何,只能实现新建项目、新建项目1
到创建新建项目2时错误就捕获不到了,而且程序运行出错
"35602 集合中的关键字不唯一"
怎么在思路不变的情况下将这个问题解决呀?