主题：[求助]目录树问题请教老师

定义递归函数，名称SetNodesCheck

 

Dim n As WinForm.TreeNode = args(0)
Dim checked As Boolean = args(1)

For Each n2 As WinForm.TreeNode In n.Nodes
    n2.Checked = checked
    If n2.Nodes.Count > 0 Then
        Functions.Execute("SetNodesCheck", n2,checked )
    End If
Next

 

 

在AfterCheckNode事件

Functions.Execute("SetNodesCheck", e.Node,e.Node.Checked)

这个最好上个例子说明，不同数据结构，实现筛选条件设置都不一样的