[求助]关于表数据筛选的问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于表数据筛选的问题。

共有2886人关注过本帖树形打印复制链接主题：[求助]关于表数据筛选的问题。

wangyi5056

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

加好友

发短信

等级：幼狐帖子：137 积分：1410 威望：0 精华：0 注册：2014/3/4 14:40:00

[求助]关于表数据筛选的问题。 发帖心情

Post By：2018/5/30 21:32:00 [只看该作者]

请教老师们，帮助解答！

问题是关于筛选表中数据的。首先我建立了数据表（表A）：第一列第二列 ,然后建立查询窗口，用到文本控件（textbox1）和按钮控件（button1），table1控件

p1 1

p1 0

p1 2

p2 0

p3 2

想实现的效果是：当在文本控件中填写1并按按钮查询时结果为：第一列第二列，填0时结果为：第一列第二列，填2时结果为：第一列第二列

p1 1 p2 0 p3 2

p2 0

也就是说当查询除1以外的数据时，假设查询结果的第一列相同的値存在对应第二列1时，则此行在显示筛选结果中就不包含在内。

如何编写？请求帮助！！！

有点甜

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

加好友

发短信

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

Post By：2018/5/30 21:41:00 [只看该作者]

合成条件

Dim s As String = 0
Dim t As Table = Tables("表A")
If s = "1" Then
    t.filter = "第二列 = '" & s & "'"
Else
    Dim s1 As String = t.DataTable.GetComboListString("第一列", "第二列='1'")
    s1 = s1.replace("|", "','")
    t.filter = "第二列 = '" & s & "' and 第一列 not in ('" & s1 & "')"
End If