我的代码: For i = 1 To Me.TreeView1.Nodes.Count On Error GoTo Erradd If Me.TreeView1.Nodes.Item(i).Parent = "" Then End If Erradd: If Err.Number = 91 Then intCollection.Add i End If Err.Clear Next i大家看看!
有个简单的方法你可以试一试, if instr(node.fullpath,"\")>1 then msgbox "该节点不是父节点",VBOKONLY OR VBNINFORMATION,"你好" ELSE msgbox "该节点是父节点",VBOKONLY OR VBNINFORMATION,"你好" endif
我也想用parent了!根节点不存在parent我用错误捕获来判断但是查到第二个错误的时候就出错!不知为什么!!
For i = 1 To Me.TreeView1.Nodes.Count
On Error GoTo Erradd
If Me.TreeView1.Nodes.Item(i).Parent = "" Then
End If
Erradd:
If Err.Number = 91 Then
intCollection.Add i
End If
Err.Clear
Next i大家看看!
回复人: ferrytang(四眼丑田鸡) ( ) 信誉:100 2002-03-29 09:12:00 得分:0
规范你编码方式就可以达到!
if instr(node.fullpath,"\")>1 then
msgbox "该节点不是父节点",VBOKONLY OR VBNINFORMATION,"你好"
ELSE
msgbox "该节点是父节点",VBOKONLY OR VBNINFORMATION,"你好"
endif