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

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