主题：新人刚学，筛选窗口，急急，求大神指点

With e.Form.Controls("机型列表")
    If .Value IsNot Nothing Then
        Filter =" 机型 = '" & .Value & "'"
    End If
End With

改为：

With e.Form.Controls("机型列表")
    If .Value IsNot Nothing Then
        Filter =" 机型 in ('" & .Value.Replace(",","','") & "')"
    End If
End With

三楼有答案，看一下in运算符的语法，就知道为啥要这样处理了：

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

我测试编译OK:

Dim Filter As String
With e.Form.Controls("机型列表")
    If .Value IsNot Nothing Then
        Filter =" 机型 in ('" & .Value.Replace(",","','") & "')"
    End If
End With
With e.Form.Controls("器件代码列表")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "器件代码= '" & .Value & "'"
    End If
End With
With e.Form.Controls("器件名称列表")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "器件名称 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("机型数据总表").Filter = Filter
End If