主题：交叉检索搜索

建议分开2个条件，然后再合并 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 Dim Filter2 As String With e.Form.Controls("开始2")     If .Value IsNot Nothing Then         Filter2 = Filter2 & "记录时间 >= #" & .Value & "#"     End If End With With e.Form.Controls("结束2")     If .Value IsNot Nothing Then         If Filter2 >"" Then             Filter2 = Filter2 & " and "         End If         Filter2 = Filter2 & "记录时间 <= #" & .Value & "#"     End If End With If Filter > "" AndAlso Filter2 > "" Then     Tables("主控窗口_Table2").Filter = "(" & Filter & ") or (" & Filter2 & ")" else If Filter > "" Then     Tables("主控窗口_Table2").Filter = Filter elseIf Filter 2> "" Then     Tables("主控窗口_Table2").Filter = Filter2 End If End If 报错啦老师

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

这样
此主题相关图片如下：wechat 圖片_20210929160241.png

很明显的错误了，手打输多了一个空格，自行去掉。起码一些简单的错误要学会自行处理，总不能别人给的代码也只能等着别人更改。