主题：如何在窗体中实现多条件查询

你如何做的？参考 http://www.foxtable.com/webhelp/scr/1058.htm

前后，加上括号

 Filter =  "([姓名]= '" & .Value & "' Or [电话]= '" & .Value & "')"

Filter =  "([姓名] like '%" & .Value & "%' Or [电话] like '%" & .Value & "%')"

如果某列不是字符列

Filter =  "([姓名] like '%" & .Value & "%' Or [电话] like '%" & .Value & "%' or convert(日期, 'System.String') like '%" & .value & "%')"

比较麻烦，因为筛选条件是用表达式的，表达式处理日期列，要这样处理

http://www.foxtable.com/webhelp/scr/1285.htm

Dim Filter As String = "1=2"

With e.Form.Controls("cmbProduct")
    If .Value = Nothing Then
       
        Filter = filter & " or ([姓名] like '%" & .Value & "%' Or [电话] like '%" & .Value & "%' or convert(日期, 'System.String') like '%" & .value & "%')"
       
    End If
End With

With e.Form.Controls("StartDate")
    If .Value = Nothing Then
       
        Filter = Filter &  " or ([姓名] like '%" & .Value & "%' Or [电话] like '%" & .Value & "%' or convert(日期, 'System.String') like '%" & .value & "%')"
    End If
End With
If Filter > "" Then
    Tables("订单表").Filter = Filter
End If