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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]筛选代码问题

共有3955人关注过本帖树形打印复制链接主题：[求助]筛选代码问题

红颜

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

等级：童狐帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00

[求助]筛选代码问题 发帖心情

Post By：2014/2/13 10:03:00 [显示全部帖子]

按钮代码：

Dim min As Integer = Tables("打印fa piao_Table1").Compute("MIN(FZ)","DY = False ")

Tables("打印fa piao_Table1").Filter = ""

Tables("打印fa piao_Table1").Filter = "[FZ] = " & min & " And [DY] = False"

后两段代码分开放在两个按钮时起作用，合并在一起时不起作用

要求：每按一次，筛选出符合条件的数据，直至不存在符合条件的数据

[此贴子已经被作者于2014-2-13 10:07:12编辑过]

红颜

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

等级：童狐帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00

Post By：2014/2/13 10:09:00 [显示全部帖子]

每按一次，筛选出符合条件的数据，直至不存在符合条件的数据

完整代码如下

第一次按下按钮

Dim min As Integer = Tables("打印fa piao_Table1").Compute("MIN(FZ)","DY = False ")

Tables("打印fa piao_Table1").Filter = "[FZ] = " & min & " And [DY] = False"

Dim drs As List(Of DataRow)

drs = Tables("打印fa piao_Table1").DataTable.Select("[FZ] = " & min & " And [DY] = False")

For Each dr As DataRow In drs

dr("DY") = True

此时表中其他行隐藏了，当再次按下按钮时不会继续筛选第二个符合条件的数据

重新显示全表后才可继续筛选

Tables("打印fa piao_Table1").Filter = ""

如何去掉跳过重现全表而直接筛选出下一个符合条件的数据

[此贴子已经被作者于2014-2-13 10:20:23编辑过]

红颜

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

等级：童狐帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00

Post By：2014/2/13 10:17:00 [显示全部帖子]

本来是想写在一个按钮中，分开做了试验

Tables("打印fa piao_Table1").Filter = "[FZ] = " & min & " And [DY] = False"

此段代码中能带个参数吗？像0,2等，不然每次筛选都要重现显示全表

[此贴子已经被作者于2014-2-13 10:25:16编辑过]

主题：[求助]筛选代码问题