主题：[求助]目录树节点单选，有实用意义【代码在8楼，10楼】

我又现成的通用代码：

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes '同步子节点选中状态
    nd.Checked = e.Node.Checked
    For Each nd1 As WinForm.TreeNode In nd.Nodes '同步子节点选中状态
        nd1.Checked =  nd.Checked
        For Each nd2 As WinForm.TreeNode In nd1.Nodes '同步子节点选中状态
            nd2.Checked =  nd1.Checked
        Next
    Next
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
    If e.node.ParentNode.ParentNode IsNot Nothing Then '去掉父节点选中状态
        e.node.ParentNode.ParentNode.Checked = False
        If e.node.ParentNode.ParentNode.ParentNode IsNot Nothing Then '去掉父节点选中状态
            e.node.ParentNode.ParentNode.ParentNode.Checked = False
        End If
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8(1).foxdb

没注意您的要求，您的要求本身就会导致死循环！