以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样统计筛选后的数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90700)

--  作者:lml88
--  发布时间:2016/9/20 10:50:00
--  怎样统计筛选后的数据
Dim ds As fxDataSource
Dim g As New GroupTableBuilder("统计表", DataTables("车辆超速数据表"))

g.Decimals = 2
g.Groups.AddDef("自编号","自编号")
g.Groups.AddDef("车牌号","牌照号")

g.Totals.AddDef("超速次数", AggregateEnum.Count, "全部超速_次数")
g.Totals.AddDef("持续秒数", AggregateEnum.Sum, "全部超速_时长")

g.Totals.AddDef("持续秒数", AggregateEnum.Average,"平均时长")
g.Groups.AddDef("最高限速","最高限速")
g.Totals.AddDef("最高速度", AggregateEnum.Max,"最高车速")
ds = g.BuildDataSource()


如上代码,统计出来的是"车辆超速数据表"里的所有数据,我现在只想统计筛选出来的数据,比如已近根据车牌号晒选出来的数据

--  作者:有点蓝
--  发布时间:2016/9/20 11:02:00
--  
g.Filter = "车牌号 = \'XXXX\'"


--  作者:狐狸爸爸
--  发布时间:2016/9/20 11:49:00
--  

如果你通过菜单筛选,希望统计筛选后的数据,可以:

 

g.Filter = Tables("表名").Filter