建议分开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 报错啦老师