[求助]如何目录树复选框取值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用狐狸爸爸在2011-8-14 9:18:00的发言：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.node.Level =1 Then
    If e.node.Checked Then
        For Each nd As WinForm.TreeNode In trv.AllNodes
            If nd.FullPath <> e.node.FullPath Then
                nd.Checked = False
            End If
        Next
        messagebox.show(e.node.text.split(":")(1))
    End If
End If

不够通用

有时候贺老师是头痛医头，脚痛医脚。

应该解决事先不知是几级子目录的问题。

主题：[求助]如何目录树复选框取值？