高手来帮忙下，这个窗口需要增加一个筛选指定的字段，其它不变

很简单，删除窗体中的选项卡，然后将确定按钮的代码简写为：

Private Sub 确定_Click()
    Dim ssql As String
    ssql = Mysql & " Where  " & Me.筛选.Value
    Me.数据列表.RowSource = ssql
End Sub

操作时，直接在筛选条件中写筛选语句即可。比如直接写：姓名 Like "张*" and 性别="女" and (职务="经理" or 职务="主管")

这样处理，比从列表框中选字段，然后从选项卡中选逻辑运算符，更简单和灵活。唯一要求用户懂得写逻辑表达式，实际上如果用户不懂得写逻辑表达式，即使按照选字段来拼逻辑表达式，他们依然是搞球不清的。

通过字段名和逻辑运算符和其他数学符号来编制逻辑表达式的需求是可以实现的，只是这种实现非常啰嗦。因为一个逻辑表达式不仅仅由字段名和逻辑运算符组成，还需要括号来确定运行顺序，同时还要判断字段的数字类型。处理起来得不偿失，不是一种好的解决此类问题的思路。而且这种处理，并没给用户带来太多便利。因为用户如果不懂逻辑表达式，你就是弄一堆东西上去，他还是很茫然。所以，一般这种通用型的筛选，要么就假设用户不懂逻辑表达式，那么按照我原来的示例的处理方法处理；要么就假设用户懂得逻辑表达式，就按照现在给你的思路处理。