主题：[求助]怎么实现万用型筛选窗口

我想用下面的代码做个万用型筛选窗口

Dim Filter As String
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        Filter = "职工号= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("职工总库").Filter = Filter
End If

 

我想用两个组合框来筛选数据，第一个组合框用来选择查询项目，比如上面代码中的职工号，第二个组合框用来选择对应的数值。最后，我可以不用设置很多的查询项，只用修改2个组合框的值，就能在窗口中以不同的条件筛选数据

于是把上面的代码改成

 

Dim Filter As String

With e.Form.Controls("ComboBox1")
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        Filter = "ComboBox1= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("职工总库").Filter = Filter
End If

 

结果当然是华丽地出错了。首先是语法错误，去掉With e.Form.Controls("ComboBox1")后，又显示找不到列ComboBox1

 

我该怎么做才好呢？

 

求教！非常感谢！