[求助]如何追载符合条件的记录？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何追载符合条件的记录？

共有1646人关注过本帖树形打印复制链接主题：[求助]如何追载符合条件的记录？

jeff69

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

加好友

发短信

等级：幼狐帖子：77 积分：679 威望：0 精华：0 注册：2018/5/2 11:29:00

[求助]如何追载符合条件的记录？ 发帖心情

Post By：2018/7/13 16:17:00 [只看该作者]

老师：符合条件的记录找出来了，以集合形式将“业务编号”放在集合中，但如果用filter的话，只能显示最后一条记录，用 or 也不行，因为不知道有多少条记录。如何解决？

Case "景点"

Dim khmc3 As String = "%" & key.Value & "%"

Dim A2 As String = DataTables("行程安排表").GetComboListString("业务编号","景点1 like '" & khmc3 & "' Or 景点2 Like '" & khmc3 & "' Or 景点3 Like '" & khmc3 & "' Or 景点4 Like '" & khmc3 & "'")

MessageBox.Show(A2)

Dim Values1() As String

Values1 = A2.split("|")

For Index1 As Integer = 0 To Values1.Length - 1

MessageBox.Show(Values1(Index1))

' Tables("查询窗口_Table1").Filter = "业务编号 = '" & Values(Index) & "'"

y2287958

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

加好友

发短信

等级：狐神帖子：4628 积分：33772 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/7/13 16:22:00 [只看该作者]

用"in('','','')"表达式

有点甜

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

加好友

发短信

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

Post By：2018/7/13 16:28:00 [只看该作者]

Case "景点"
    Dim khmc3 As String = "%" & key.Value & "%"
    Dim A2 As String = DataTables("行程安排表").GetComboListString("业务编号","景点1 like '" & khmc3 & "' Or 景点2 Like '" & khmc3 & "' Or 景点3 Like '" & khmc3 & "' Or 景点4 Like '" & khmc3 & "'")
    Tables("查询窗口_Table1").Filter = "业务编号 in ('" & a2.Replace("|", "','") & "')"

jeff69

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

加好友

发短信

等级：幼狐帖子：77 积分：679 威望：0 精华：0 注册：2018/5/2 11:29:00

Post By：2018/7/13 16:47:00 [只看该作者]

太佩服老师了！

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

主题：[求助]如何追载符合条件的记录？