Dim b As New sqlCrossTableBuilder("统计表1","加油费")
b.HGroups.AddDef("日期",DateGroupEnum.Year,"年") '添加日期列用于水平分组,按年分组
b.HGroups.AddDef("日期","月") '添加日期列用于水平分组,按月分组
b.VGroups.AddDef("车牌","车牌_{0}") '添加产品列用于垂直分组
'b.Totals.AddDef("加油金额","加油金额") '添加数量列用于统计
b.Totals.AddExp("加油金额","IIF(加油金额 is null,0,加油金额) + IIF(现金加油 is null,0,现金加油)") '添加数量列用于统计
'b.Subtotal = True '生成汇总模式
b.HorizontalTotal = True
b.VerticalTotal = True
b.Filter = "车牌 is not null"
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表
加好友 
发短信
Post By：2019/5/23 10:29:00 [显示全部帖子]
