TreeView1问题请教高手！在线等！请帮忙程序改错！
我想选中树的父结点然后他对应的子结点都被选中！程序如下:
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim strKey As String
Dim i As Long
strKey = Node.Key
If Node.Checked = True Then
For i = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes(i).Parent.Key <> strKey Then
ElseIf TreeView1.Nodes(i).Parent.Key = strKey Then
TreeView1.Nodes(i).Checked = True
End If
Next
Else
For i = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes(i).Parent.Key <> strKey Then
ElseIf TreeView1.Nodes(i).Parent.Key = strKey Then
TreeView1.Nodes(i).Checked = False
End If
Next
End If
End Sub
下面这一句报错：（对象变量或with块变量未设置）
If TreeView1.Nodes(i).Parent.Key <> strKey Then
请问怎么做啊？那位高手有什么高见的请帮忙！谢谢！小弟是分少了点！
[解决办法]
加判断
If Not TreeView1.Nodes(i).Parent Is Nothing Then
If TreeView1.Nodes(i).Parent.Key <> strKey Then
ElseIf TreeView1.Nodes(i).Parent.Key = strKey Then
TreeView1.Nodes(i).Checked = True
End If
endif
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
最新版本：20070130
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
[解决办法]
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim strKey As String
Dim i As Long
strKey = Node.Key
For i = 1 To TreeView1.Nodes.Count
If Not TreeView1.Nodes(i).Parent Is Nothing Then
TreeView1.Nodes(i).Checked =iif(TreeView1.Nodes(i).Parent.Key = strKey,Node.Checked,TreeView1.Nodes(i).Checked)
End If
Next
End Sub
------解决方案--------------------
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim nodX As Node
For Each nodX In TreeView1.Nodes
If nodX.Parent Is Node Then
nodX.Checked = Node.Checked
End If
Next
End Sub
