我在表中有一逻辑列"完成状况",在"TPM筛选"窗口增加一个"ComboBox9")复选框,复选框中的自定义项目设置"False,True",在筛选按钮设置如下代码 Dim Filter As String With e.Form.Controls("ComboBox9") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If If .Value = "完成状况" Then Filter = Filter & " 完成状况 = True" Else Filter = Filter & " 完成状况 = False" End If End If End With If Filter > "" Then Tables("TPM").Filter = Filter End If