以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  询问交叉统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15427)

--  作者:游山玩水
--  发布时间:2011/12/25 22:48:00
--  询问交叉统计

请问,我在一个“加油记录”表中,如果先筛选数据,再利用菜单中的交叉统计,得到的交叉表是筛选以后的统计结果,但是我把交叉统计设置里的代码复制后,添加到一个按钮的代码后,生成的交叉表却不是筛选以后的数据,而是所有的数据的交叉统计结果,这是为什么啊?

 

这个是自动生成的代码:

Dim g As New CrossTableBuilder("统计表1", DataTables("加油记录"))
g.HGroups.AddDef("车号")
g.VGroups.AddDef("规格")
g.Totals.AddDef("数量", "数量")
g.Totals.AddDef("金额", "金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("统计表1")


--  作者:yangming
--  发布时间:2011/12/25 22:54:00
--  
在点按钮前要先筛选
--  作者:游山玩水
--  发布时间:2011/12/25 23:04:00
--  
以下是引用yangming在2011-12-25 22:54:00的发言:
在点按钮前要先筛选

谢谢杨版,不过先筛选也没有用,我原来是点筛选按钮后,再点交叉统计按钮,现在我把筛选按钮的代码也加在交叉统计的代码前面,依旧没有用。


--  作者:czy
--  发布时间:2011/12/25 23:33:00
--  
Dim g As New CrossTableBuilder("统计表1", DataTables("加油记录"))
g.HGroups.AddDef("车号")
g.VGroups.AddDef("规格")
g.Totals.AddDef("数量", "数量")
g.Totals.AddDef("金额", "金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = Tables("加油记录").Filter
g.Build()
MainTable = Tables("统计表1")

--  作者:游山玩水
--  发布时间:2011/12/25 23:40:00
--  
以下是引用czy在2011-12-25 23:33:00的发言:
Dim g As New CrossTableBuilder("统计表1", DataTables("加油记录"))
g.HGroups.AddDef("车号")
g.VGroups.AddDef("规格")
g.Totals.AddDef("数量", "数量")
g.Totals.AddDef("金额", "金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = Tables("加油记录").Filter
g.Build()
MainTable = Tables("统计表1")

现在可以了,非常感谢!