主题：[求助]帮忙看看这个思路能不能实现？

红袍兄：代码我就是按照你的提示，改的跟你一样。想要的功能实现了。

帮我看看第二张图

代码不变，关键是你合成条件即可啊。

循环勾选的节点，合成一个条件，不会做，做例子发上来。

红袍兄：还是得你来帮忙了

红袍兄：好像有些问题。

" 按到货完结"好像复选功能实现不了。

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String = "1=2"
Dim flt1 As String = "1=2"
For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态
    nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        Select nd.level
            Case 0  '注意下面的条件都要用括号括起来
                If nd.Text="显示全部" Then
                    Tables("订单").ApplyFilter=False
                Else
                    Return
                End If
            Case 1
                If nd.FullPath.StartsWith("按产品名称") Then
                    flt &= " or 产品名称 = '" & nd.text & "'"
                Else If nd.FullPath.StartsWith("按到货完结")
                    flt1 &= " or 到货完结 = '" & nd.text & "'"
                End If
            Case 2
                If nd.FullPath.StartsWith("按产品名称") Then
                    flt &= " or 产品名称 = '" & nd.ParentNode.text & "' and 产品规格 = '" & nd.text & "'"
                End If
        End Select
    End If
Next
Tables("采购合同表").Filter = "合同编号 in ('" & DataTables("采购明细表").GetComboListString("合同编号", "(" & iif(flt="1=2","1=1",flt) & ") And (" & iif(flt1="1=2","1=1",flt1) & ")").replace("|", "','") & "')"

还有一个小问题：

当进行了一次筛选后，取消所有的复选，选择“显示全部”，只显示的是有数据的记录，空白行却显示不了，为何？

当选择“显示全部”后，在系统菜单下，显示：Tables("采购合同表")仍处于筛选状态。

那你设置filter成空值

Tables("订单").ApplyFilter=False

Tables("订单").Filter = ""