主题：窗口筛选问题

是的，帮助中有详细的说明。
控件TextChanged事件代码。

Dim Filter As String
With e.Form.Controls("日期")
    If .Value IsNot Nothing Then
        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("表A").Filter = Filter
End If