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

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