窗口表汇总模式无效
表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