以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在窗体中实现多条件查询  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113889)
--  作者：top123
--  发布时间：2018/1/24 17:47:00
--  如何在窗体中实现多条件查询
1、用一个按钮实现所有列的查询（已实现）
2、所有列 与 另外一个条件共同查询，得出结果（未实现）
3、查询中如何使用通配符表达所有列（未实现）
--  作者：有点甜
--  发布时间：2018/1/24 18:09:00
--  

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

 
--  作者：top123
--  发布时间：2018/1/25 14:15:00
--  

Dim Filter As String

With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter =  "[姓名]= \'" & .Value & "\' Or [电话]= \'" & .Value & "\' Or [地区]= \' " & .Value & " \' "（这后面还有很多）
  End If
End With
    With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter &  "日期 = #" & .Value & "# "
    End If
End With
      If Filter > "" Then
        Tables("订单表").Filter = Filter
    End If
所有列 与 另外一个条件共同查询，得出结果（未实现）

[此贴子已经被作者于2018/1/25 14:23:31编辑过]
--  作者：top123
--  发布时间：2018/1/25 14:20:00
--  

Filter =  "[姓名]= \'" & .Value & "\' Or [电话]= \'" & .Value & "\' Or [地区]= \'" & .Value & ""

1、在单一查询时，这句中，每个例都可以被查询到

2、在和时间合并起来查询时，只有一个例会被执行

[此贴子已经被作者于2018/1/25 14:20:06编辑过]
--  作者：有点甜
--  发布时间：2018/1/25 15:17:00
--  

前后，加上括号

 

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

 


 
--  作者：top123
--  发布时间：2018/1/25 16:59:00
--  

谢谢，有点甜，已经可以实现了

另外咨询下，查询中如何使用通配符表达所有列
--  作者：有点甜
--  发布时间：2018/1/25 18:08:00
--  

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

 

如果某列不是字符列

 

Filter =  "([姓名] like \'%" & .Value & "%\' Or [电话] like \'%" & .Value & "%\' or convert(日期, \'System.String\') like \'%" & .value & "%\')"
--  作者：top123
--  发布时间：2018/1/25 22:10:00
--  
谢谢，有点甜，已经可以实现了，厉害！！！
Filter =  "([姓名] like \'%" & .Value & "%\' Or [电话] like \'%" & .Value & "%\' or convert(日期, \'System.String\') like \'%" & .value & "%\')",
其中这里面的日期，只能按固定格式，能不能实现日期的多种写法
--  作者：有点甜
--  发布时间：2018/1/25 22:48:00
--  

 

以下是引用top123在2018/1/25 22:10:00的发言：
谢谢，有点甜，已经可以实现了，厉害！！！
Filter =  "([姓名] like \'%" & .Value & "%\' Or [电话] like \'%" & .Value & "%\' or convert(日期, \'System.String\') like \'%" & .value & "%\')",
其中这里面的日期，只能按固定格式，能不能实现日期的多种写法

 

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

 

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

 

[此贴子已经被作者于2018/1/25 22:48:44编辑过]
--  作者：top123
--  发布时间：2018/3/4 14:46:00
--  

Dim Filter As String

With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then

      Filter =  "([姓名] like \'%" & .Value & "%\' Or [电话] like \'%" & .Value & "%\' or convert(日期, \'System.String\') like \'%" & .value & "%\')",
        Filter =   End If
End With
    With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter &  "([姓名] like \'%" & .Value & "%\' Or [电话] like \'%" & .Value & "%\' or convert(日期, \'System.String\') like \'%" & .value & "%\')"
End If
End With
      If Filter > "" Then
        Tables("订单表").Filter = Filter
    End If
这段代码，不能实现两个条件同时查询，这是什么情况