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


  共有3848人关注过本帖树形打印复制链接

主题：[求助]筛选代码问题
帅哥哟，离线，有人找我吗？
红颜
 小大  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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/13 10:07:00 [只看该作者]

请问,你的问题是什么?

 回到顶部
帅哥哟，离线，有人找我吗？
红颜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
Next
此时表中其他行隐藏了，当再次按下按钮时不会继续筛选第二个符合条件的数据
重新显示全表后才可继续筛选

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

如何去掉跳过重现全表而直接筛选出下一个符合条件的数据
[此贴子已经被作者于2014-2-13 10:20:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/13 10:11:00 [只看该作者]

为什么要分开写在两个地方呢,分开写在两个地方当然不可以啊

 回到顶部
帅哥哟，离线，有人找我吗？
红颜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4733 积分：34458 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/2/13 12:27:00 [只看该作者]

做个例子上来
附加说明
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询