主题：[分享]通用多级目录树筛选

呵呵，思路不错，不过发现错误，例如先选择PD01,然后展开这个PD01节点，逐个去掉CS01到CS05的选中标记，到最后一个CS05就出错了

在大家的基础上再改一下：

Dim nms As String() ={"产品","客户","雇员","折扣","日期"}
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
For Each nd In e.node.allNodes
    nd.Checked = False
Next
pd = e.Node.ParentNode
Do
    If pd Is Nothing Then
        Exit Do
    Else
        pd.Checked = False
        pd = pd.ParentNode
    End If
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        For i As Integer = 0 To rts.length -1
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = '" & rts(i) & "'"
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("订单").Filter  = flt

加上数据类型判断，更加通用，用于加载树也可以的：

Dim nms As String() ={"产品","客户","雇员","折扣","日期"}
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
For Each nd In e.node.allNodes
    nd.Checked = False
Next
pd = e.Node.ParentNode
Do
    If pd Is Nothing Then
        Exit Do
    Else
        pd.Checked = False
        pd = pd.ParentNode
    End If
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim rts() As String = nd.FullPath.Split("\")
        Dim val As String = ""
        Dim qte As String  = ""
        For i As Integer = 0 To rts.length -1
            Dim dc As DataCol = DataTables("订单").DataCols(nms(i))
            If dc.IsString  Then
                qte = "'"
            ElseIf dc.IsDate Then
                qte = "#"
            End If
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qte & rts(i) & qte
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("订单").Filter  = flt