| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]筛选代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45898) |
| -- 作者：红颜 -- 发布时间：2014/2/13 10:03:00 -- [求助]筛选代码问题 按钮代码： Dim min As Integer = Tables("打印发票_Table1").Compute("MIN(FZ)","DY = False ") Tables("打印发票_Table1").Filter = "" Tables("打印发票_Table1").Filter = "[FZ] = " & min & " And [DY] = False" 后两段代码分开放在两个按钮时起作用，合并在一起时不起作用 要求：每按一次，筛选出符合条件的数据，直至不存在符合条件的数据
[此贴子已经被作者于2014-2-13 10:07:12编辑过]
|
| -- 作者：Bin -- 发布时间：2014/2/13 10:07:00 -- 请问,你的问题是什么? |
| -- 作者：红颜 -- 发布时间：2014/2/13 10:09:00 -- 每按一次，筛选出符合条件的数据，直至不存在符合条件的数据 完整代码如下 第一次按下按钮 Dim min As Integer = Tables("打印发票_Table1").Compute("MIN(FZ)","DY = False ") Tables("打印发票_Table1").Filter = "[FZ] = " & min & " And [DY] = False" Dim drs As List(Of DataRow) drs = Tables("打印发票_Table1").DataTable.Select("[FZ] = " & min & " And [DY] = False") For Each dr As DataRow In drs dr("DY") = True Next 此时表中其他行隐藏了，当再次按下按钮时不会继续筛选第二个符合条件的数据 重新显示全表后才可继续筛选 Tables("打印发票_Table1").Filter = ""
如何去掉跳过重现全表而直接筛选出下一个符合条件的数据
[此贴子已经被作者于2014-2-13 10:20:23编辑过]
|
| -- 作者：Bin -- 发布时间：2014/2/13 10:11:00 -- 为什么要分开写在两个地方呢,分开写在两个地方当然不可以啊 |
| -- 作者：红颜 -- 发布时间：2014/2/13 10:17:00 -- 本来是想写在一个按钮中，分开做了试验 Tables("打印发票_Table1").Filter = "[FZ] = " & min & " And [DY] = False"
此段代码中能带个参数吗？像0,2等，不然每次筛选都要重现显示全表
[此贴子已经被作者于2014-2-13 10:25:16编辑过]
|
| -- 作者：y2287958 -- 发布时间：2014/2/13 12:27:00 -- 做个例子上来 附加说明
|