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

……

Dim Filter2 As String

If e.Form.Controls("已完成").Checked = True ' 如果付款状态选择了"已付"

If Filter2 >"" Then

Filter2 = Filter2 & " or "

End If

Filter2 = Filter2 & "订单状态 = '已完成'"

End If

If e.Form.Controls("未加工").Checked = True ' 如果付款状态选择了"已付"

If Filter2 >"" Then

Filter2 = Filter2 & " or "

End If

Filter2 = Filter2 & "订单状态 = '未加工'"

End If

If e.Form.Controls("进行中").Checked = True ' 如果付款状态选择了"已付"

If Filter2 >"" Then

Filter2 = Filter2 & " or "

End If

Filter2 = Filter2 & "订单状态 = '进行中'"

End If

If e.Form.Controls("调机").Checked = True ' 如果付款状态选择了"已付"

If Filter2 >"" Then

Filter2 = Filter2 & " or "

End If

Filter2 = Filter2 & "订单状态 = '调机'"

End If

If Filter2 >"" Then

Filter = Filter & " and ( " & Filter2 & ")"

End If

……

主题：多项查询