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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在窗体中实现多条件查询

共有3169人关注过本帖树形打印复制链接主题：如何在窗体中实现多条件查询

top123

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：288 威望：0 精华：0 注册：2018/1/19 15:29:00

如何在窗体中实现多条件查询 发帖心情

Post By：2018/1/24 17:47:00 [显示全部帖子]

1、用一个按钮实现所有列的查询（已实现）

2、所有列与另外一个条件共同查询，得出结果（未实现）

3、查询中如何使用通配符表达所有列（未实现）

top123

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：288 威望：0 精华：0 注册：2018/1/19 15:29:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：288 威望：0 精华：0 注册：2018/1/19 15:29:00

Post By：2018/1/25 14:20:00 [显示全部帖子]

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

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

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

[此贴子已经被作者于2018/1/25 14:20:06编辑过]

top123

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：288 威望：0 精华：0 注册：2018/1/19 15:29:00

Post By：2018/1/25 16:59:00 [显示全部帖子]

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

另外咨询下，查询中如何使用通配符表达所有列

top123

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：288 威望：0 精华：0 注册：2018/1/19 15:29:00

Post By：2018/1/25 22:10:00 [显示全部帖子]

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

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

其中这里面的日期，只能按固定格式，能不能实现日期的多种写法

top123

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：288 威望：0 精华：0 注册：2018/1/19 15:29:00

Post By：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

这段代码，不能实现两个条件同时查询，这是什么情况

下一主题 >> << 上一主题

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