- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]查询窗口撤销筛选按钮有问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113457)
-- 发布时间：2018/1/16 13:38:00
-- [求助]查询窗口撤销筛选按钮有问题
我在设置窗口查询功能后，发现一问题。比如我在查询应收额>=1000的记录（没有其他查询条件），查询没问题。但我按了撤销筛选（显示全部）按钮后，居然不是显示全部的4条记录。这是为什么？而且按日期查询（比如是2018-01-15这一天）也会存在这个问题。而单号、姓名什么的就没有这个问题。
困扰一整天了，请老师解答一下。第一次上传附件不是否上传成功。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题.zip |
-- 发布时间：2018/1/16 14:42:00
--
我测试没问题。你试试显示全部的代码写成这样 Tables("汇总查询_table1").filter = ""
-- 发布时间：2018/1/16 18:40:00
--
为什么在老师那里就没问题，而我测试就有问题！我又重启了电脑，还是同样的问题。
老师说的方法我试过了，没有用。
刚刚我又发现，如果把查询按钮代码中汇总的那部分语句去掉，撤销筛选就可以显示所有记录。
但是，实时查询得有汇总结果啊！汇总的功能必须得有啊！
老师能不能再帮我想想这是为什么造成这样的问题？
现在有一种不能再前进一步的感觉，很崩溃……
-- 发布时间：2018/1/16 20:40:00
--
显示全部
Dim t As Table = Tables("汇总查询_table1")
t.ClearSubtotal()
t.Filter = ""
\'售环汇总表合计
t.SubtotalGroups.Clear()
Dim g As Subtotalgroup
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "应收金额,实收金额,欠款金额"
g.Caption = "合计"
t.SubtotalGroups.Add(g)
t.Subtotal()
-- 发布时间：2018/1/16 20:51:00
--
应该是个bug，临时这样处理一下
-- 发布时间：2018/1/16 21:03:00
--
谢谢老师，提供的解决方法我也想到过。
但我真正想知道造成我这种问题的原因是什么？虽然问题得到解决，但不知道原因在哪里，心里还是有疙瘩，有这个Bug不解决，以后设置查询还是会有顾虑。
有些问题放一放，可能日后我能慢慢会找到原因。
还是很感谢老师。