filter 两个条件同时符合，该怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → filter 两个条件同时符合，该怎么写

共有2887人关注过本帖树形打印复制链接主题：filter 两个条件同时符合，该怎么写

淡月斜阳

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

加好友

发短信

等级：童狐帖子：223 积分：1960 威望：0 精华：0 注册：2015/4/8 8:18:00

filter 两个条件同时符合，该怎么写 发帖心情

Post By：2018/9/25 10:33:00 [只看该作者]

条件字符串通过，dropdownform生成如：

PC000001|1号,PC000001|2号,PC000002|3号,PC000002|4号,PC000003|1号,PC000003|2号

查询代码如：

Dim tb As WinForm.Table = e.Form.Controls("Table1")

Dim b As New SQLCrossTableBuilder("统计表1","生产数据总查表")

b.C

b.HGroups.AddDef("日龄")

b.VGroups.AddDef("批次号")

b.VGroups.AddDef("舍号")

b.Totals.AddDef("采食")

b.Totals.AddDef("死淘_合计")

b.Filter= "舍号='1号'"

b.OrderByTotal=True

tb.Table.DataSource = b.BuildDataSource

怎么写filter：（批次号 = PC000001 且舍号=1号）或（批次号=PC000001 and 舍号=2号）或（批次号=PC000003 and 舍号=1号）

goodhawk

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

加好友

发短信

等级：幼狐帖子：120 积分：1134 威望：0 精华：0 注册：2018/3/22 15:58:00

Post By：2018/9/25 10:45:00 [只看该作者]

b.Filter= " (舍号='1号' AND 批次号 = 'PC000001') or .... "

淡月斜阳

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

加好友

发短信

等级：童狐帖子：223 积分：1960 威望：0 精华：0 注册：2015/4/8 8:18:00

Post By：2018/9/25 10:49:00 [只看该作者]

Dim str As String = "PC000001|1号,PC000001|2号,PC000002|3号,PC000002|4号,PC000003|1号,PC000003|2号"

Dim fx1() As String = str.Split(",")

Dim fil As String

For Each s As String In fx1

Dim fx2() As String = s.Split("|")

fil =fil & "or (批次号='" & fx2(0) & "' And 舍号='" & fx2(1) & "') "

fil=fil.TrimStart("o","r"," ")

Output.Show(fil)

结果如下：

(批次号='PC000001' And 舍号='1号') or (批次号='PC000001' And 舍号='2号') or (批次号='PC000002' And 舍号='3号') or (批次号='PC000002' And 舍号='4号') or (批次号='PC000003' And 舍号='1号') or (批次号='PC000003' And 舍号='2号')

我是想问问，看有没有更简单的办法

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/25 11:50:00 [只看该作者]

Dim str As String = "PC000001|1号,PC000001|2号,PC000002|3号,PC000002|4号,PC000003|1号,PC000003|2号"
str = "(批次号='" & str.replace(",", "') or (批次号='").replace("|", "' And 舍号='") & "')"
msgbox(str)

淡月斜阳

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

加好友

发短信

等级：童狐帖子：223 积分：1960 威望：0 精华：0 注册：2015/4/8 8:18:00

Post By：2018/9/25 12:11:00 [只看该作者]

原来这么简单。搞复杂了

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

主题：filter 两个条件同时符合，该怎么写