交叉检索搜索 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

http://www.foxtable.com/webhelp/topics/0102.htm，理解一下or、and的区别

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 & "#)"

Else

Filter = Filter & ")"

End If

End With

With e.Form.Controls("开始2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " or "

End If

Filter = Filter & "(记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " and "

End If

Filter = Filter & "记录时间 <= #" & .Value & "#)"

Else

Filter = Filter & ")"

End If

End With

If Filter > "" Then

Tables("主控窗口_Table2").Filter = Filter

End If

建议分开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

和Filter有关的其它交集的条件放到Filter里，和Filter2有关的其它交集的条件放到Filter2里

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

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

主题：交叉检索搜索