主题：[求助]目录树的问题

参考

http://www.foxtable.com/webhelp/scr/1947.htm

http://www.foxtable.com/webhelp/scr/2503.htm

你写的代码没问题啊，请上传实例，说明要做到的效果。

Dim a As Integer = 0

Dim pd As WinForm.TreeNode = e.node.ParentNode '获取父节点
If pd IsNot Nothing Then
    For Each nd As WinForm.TreeNode In pd.AllNodes
        If nd.Checked = True  Then '如果本次操作为清除节点选中状态
            a = a + 1
        Else
            pd.Checked = False
        End If
    Next
   
   
    If a = pd.AllNodes.Count Then
        pd.Checked = True '清除父节点选中状态
    End If
Else
    For Each nd As WinForm.TreeNode In e.node.AllNodes
        If nd.Checked = True  Then '如果本次操作为清除节点选中状态
        Else
            e.node.Checked = False
        End If
    Next
End If

这个是bug，无法处理的。双击的时候没办法。