主题：能否根据目录树复选框的选中状态进行数据筛选？

这个问题有点大了，Nodes是根据目录树的层数级增加的，我不知道动态遍历n层目录树的代码应该怎么写，这是一个难点。
另外如果象上图所示，勾选了pd03再直接跳开Cs01而选择下一层，要动态组合成筛选语句估计这也是个难点。

嗯，固定层级能实现，不过代码好象比较烦琐，这是我写的遍历三层的测试代码（中间还未判断哪些层级重复，哪些层级缺失）

For i As integer = 0 to tv.Nodes.Count -1
    if tv.Nodes(i).Checked Then
        tvname = tvname & ",'" & tv.Nodes(i).name & "'"
    End If
    For n As integer = 0 to tv.Nodes(i).Nodes.Count -1
        if tv.Nodes(i).Nodes(n).Checked Then
            tvname1 = tvname1 & ",'" & tv.Nodes(i).Nodes(n).name & "'"
        End If
        For x As integer = 0 to tv.Nodes(i).Nodes(n).Nodes.Count -1
            if tv.Nodes(i).Nodes(n).Nodes(x).Checked Then
                tvname2 = tvname2 & ",'" & tv.Nodes(i).Nodes(n).Nodes(x).name & "'"
            End If
        Next
    Next
Next

老六空时给我们来个示例，或者将你所说的方法写入程序可否？

呵呵，这种筛选应该用 In 好一点。

5楼代码我只贴了上半段，感觉非常笨的代码，所以下半段没贴。

Dim tv As WinForm.TreeView = Forms("主窗口").Controls("TreeView1")
Dim name,tvname,tvname1,tvname2,Filter As String
For i As integer = 0 to tv.Nodes.Count -1
    if tv.Nodes(i).Checked Then
        tvname = tvname & ",'" & tv.Nodes(i).name & "'"
    End If
    For n As integer = 0 to tv.Nodes(i).Nodes.Count -1
        if tv.Nodes(i).Nodes(n).Checked Then
            tvname1 = tvname1 & ",'" & tv.Nodes(i).Nodes(n).name & "'"
        End If
        For x As integer = 0 to tv.Nodes(i).Nodes(n).Nodes.Count -1
            if tv.Nodes(i).Nodes(n).Nodes(x).Checked Then
                tvname2 = tvname2 & ",'" & tv.Nodes(i).Nodes(n).Nodes(x).name & "'"
            End If
        Next
    Next
Next

if tvname2 <> "" Then
    Filter = "[雇员] In (" & tvname2.Trim(",") & ")"
End If
if tvname1 <> "" Then
    if Filter <> "" Then
        Filter = Filter & " And [客户] In (" & tvname1.Trim(",") & ")"
    Else
        Filter = "[客户] In (" & tvname1.Trim(",") & ")"
    End If
End If
if tvname <> "" Then
    if Filter <> "" Then
        Filter = Filter & " And [产品] In (" & tvname.Trim(",") & ")"
    Else
        Filter = "[产品] In (" & tvname.Trim(",") & ")"
    End If
End If
Tables("订单").Filter = Filter

是的，我循环语句中并没有加判断（5楼有说明），贴后面这段代码只是想说，好象用In更合适一点。