我仿造帮助文档的内容，做了一个筛选目录树，代码如下：

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'同步子节点选中状态
    nd.Checked = e.Node.Checked
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.Level > 0 AndAlso nd.ParentNode.Checked Then \'如果父节点选中
        Continue For \'跳过此节点,处理下一结点
    End If
    If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or "  \'注意用or而不是And
        End If
        If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
            flt = flt & "( 入职年份 = \'" & nd.Text & "\')"
        Else
            flt = flt & "( 入职年份 = \'" & nd.ParentNode.Text & "\' And 部门 = \'" & nd.Text & "\' And 办公室 = \'" & nd.Text & "\')"
        End If
    End If   
Next
Tables("职工表").Filter = flt

结果，筛选入职年份和部门都能成功，但选择办公室时却出现“无法在 System.Double 和 System.String 上执行“=”操作。”的字样

因为示例只有2个筛选条件，我则想增加更多的筛选的目录，是不是 这一段And 办公室 = \'" & nd.Text & "\'有问题呢？我该怎么表述呢？

求教……非常感谢！

你要注意里的类型，例如：

flt = flt & "( 入职年份 = \'" & nd.Text & "\')"

如果入职年份是数值型，应该改为：

flt = flt & "( 入职年份 = " & nd.Text & ")"

其他同理。

建议看看：

http://www.foxtable.com/help/topics/1284.htm

http://www.foxtable.com/help/topics/1647.htm

呃，我又把代码改为了

 If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
            flt = flt & "( 入职年份 = \'" & nd.Text & "\')"
        Else
            flt = flt & "( 入职年份 = \'" & nd.ParentNode.Text & "\' And 部门 = \'" & nd.Text & "\' )"
        End If

 If nd.Level = 1 Then \'注意下面的条件都要用括号括起来
            flt = flt & "( 部门 = \'" & nd.Text & "\')"
        Else
            flt = flt & "( 部门 = \'" & nd.ParentNode.Text & "\' And 办公室 = \'" & nd.Text & "\')"
        End If
结果单选入职年份，显示窗口，主界面，目录名，afterchecknode未将对象引用到对象设置的实例

选择里面的部门，又显示语法有问题……我该怎么改呢？

好的，非常感谢！我做好了一个例子！

这个例子中，除了上面的问题外，还有这样2个问题（有1个以前请教过，但也是来不及做例子，所以在这里补上……）

1.我做了一个主窗口，但显示出来，却总是在右边留有空白（明明窗口的位置是占满了），不知道该怎么处理。还有窗口里的内容如果太多，就会显示不出来。所以我想设置一个滑动条，想要拖动显示原本不能显示的部分，但我发现控件里面，只有横向的滑动条……这个……我该怎么办（我是要竖向的滑动）

2.上次在狐爸的指导下，有了一个外能筛选组合框。可以在窗口中输入条件类别（比如姓名），在第二个窗口输入条件的值，自由地在不同情况下筛选。但我还想再进一步，将这个两个筛选组合框变得更为万能，即在不增加筛选组合框的情况下，筛选一次后，再使用同样的两个组合框，设定第二个筛选条件，在第一次筛选的基础上作第二次筛选。这样可能么？而帮助文件里的撤销筛选代码，是不是能改成撤销前一次筛选的效果呢？

问题一下增多了，对不起！我本来是想分别发帖询问的，但在做例子的时候，这些问题都涌上心头，就在一个例子里一个贴里提出来了。

有些贪心，抱歉！

不管如何，感谢各位指导！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:试验新.zip

筛选的问题，代码改为：

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim pd As WinForm.TreeNode = nd.ParentNode
    Do
        If pd Is Nothing Then
            Exit Do
        End If
        If pd.Checked Then
            Continue For
        Else
            pd = pd.ParentNode
        End If
   Loop
    If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or "  \'注意用or而不是And
        End If
        If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
            flt = flt & "( 入职年份 = \'" & nd.Text & "\')"
        ElseIf nd.level = 1 Then
            flt = flt & "( 入职年份 = \'" & nd.ParentNode.Text & "\' And 部门 = \'" & nd.Text & "\')"
        ElseIf nd.level = 2 Then
            flt = flt & "( 入职年份 = \'" & nd.parentNode.ParentNode.Text & "\' And 部门 = \'" & nd.ParentNode.Text & "\' And 办公室 = \'" & nd.Text & "\')"
        ElseIf nd.level = 3
            flt = flt & "( 入职年份 = \'" & nd.parentNode.parentNode.ParentNode.Text & "\' And 部门 = \'" & nd.parentNode.ParentNode.Text & "\' And 办公室 = \'" & nd.parentNode.Text & "\' And 性别 = \'" & nd.Text &  "\')"
        End If
    End If
Next
Tables("表A").Filter = flt

你搞得也太复杂了，太多层的最好不要多选，单选就行：

http://www.foxtable.com/help/topics/0917.htm