主题：[求助]单击目录树复选框，选中全部同级节点，不是子节点。

此主题相关图片如下：目录树.jpg

如图：单击目录树复选框的“全选”节点，选中全部同级节点，没有子节点。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes
    If e.node.Index=0
        If e.node.Checked = True
            nd.Checked = True
        End If
    End If
Next

上面代码运行后，程序自动退出。

请各位大师给指点。

e.Sender.BuildTree("表A","第一列")
e.Sender.Nodes.Insert("全选",0)

AfterCheckNode

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If e.node.Index = 0
        If e.node.Checked = True
            nd.Checked = True
        Else
            nd.Checked = False
        End If
    End If
Next

换了个版本，问题已解决。

感谢。