- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口表汇总模式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172252)
-- 发布时间：2021/10/2 20:28:00
-- 窗口表汇总模式
窗口表汇总模式无效
表1的代码
Dim b As New GroupTableBuilder("销售订单统计",DataTables("销售订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年") \'添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("日期","月") \'添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("订单单号",AggregateEnum.Count,"订单单号")
b.Totals.AddDef("订单金额") \'添加金额列用于统计
b.Subtotal = True \'生成汇总模式
b.SubtotalLevel = 1 \'总计行模式
b.Build \'生成统计表
Tables("销售订单_销售订单统计表").DataSource = DataTables("销售订单统计")
\'MainTable = Tables("销售订单统计") \'打开生成的统计表
表1
此主题相关图片如下：1.jpg
表2的代码
Dim b As New GroupTableBuilder("销售订单统计",DataTables("销售订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年") \'添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("日期","月") \'添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("订单单号",AggregateEnum.Count,"订单单号")
b.Totals.AddDef("订单金额") \'添加金额列用于统计
b.Subtotal = True \'生成汇总模式
b.SubtotalLevel = 1 \'总计行模式
b.Build \'生成统计表
MainTable = Tables("销售订单统计") \'打开生成的统计表
表2
此主题相关图片如下：2.jpg
-- 发布时间：2021/10/4 21:28:00
--
Dim b As New GroupTableBuilder("销售订单统计",DataTables("销售订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年") \'添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("日期","月") \'添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("订单单号",AggregateEnum.Count,"订单单号")
b.Totals.AddDef("订单金额") \'添加金额列用于统计
b.Subtotal = True \'生成汇总模式
b.SubtotalLevel = 1 \'总计行模式
Tables("销售订单_销售订单统计表").DataSource = b.BuildDataSource