主题：从aftercheckNode换到点击node

notemouseclick事件加入代码

e.node.checked = not e.node.checked

notemouseclick事件，写代码实现筛选，类似

e.node.checked = not e.node.checked

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
For Each nd In e.node.allNodes '清除子节点的选中标记
    nd.Checked = False
Next
nd = e.Node.ParentNode
Do While nd IsNot Nothing '清除父节点的选中标记
    nd.Checked = False
    nd = nd.ParentNode
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
   
        If nd.Checked  Then
               If val > "" Then
                   val = val & " or "
               End If
               val = val  & " organName = '"  & nd.text & "'"
        End If

        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next

编写 BeforeExpandNode 事件代码，不会做上传实例。

不然你就改成

e.node.checked = not e.node.checked

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
   
        If nd.Checked  Then
               If val > "" Then
                   val = val & " or "
               End If
               val = val  & " organName = '"  & nd.text & "'"
        End If

        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next

你最后要写筛选啊

Tables("某表").filter = flt

改成下面，如果还有问题，做个例子测试

DataTables("organList").LoadFilter = "organName = '" & _UserOrgan & "' or superName = '" & _UserOrgan & "'"
DataTables("organList").LoadTop = Nothing
DataTables("organList").load

Dim tr  As WinForm.TreeView
tr = Forms("单位管理").Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()''停止绘制目录树
e.node.nodes.clear
Functions.Execute("AddChildren",e.node,dt)
tr.ResumeRedraw() ''恢复绘制目录树