备件_属性是字符列,字符列只能计数,无法求和。
另外使用了g.BuildDataSource(),就没有必要使用g.Build()了。
Case "单车汇总"
Dim g As New CrossTableBuilder("出库统计", DataTables("出库"))
g.HGroups.AddDef("统计班组","班组")
g.HGroups.AddDef("客户_车型", "车型")
g.HGroups.AddDef("客户_车号","车号")
g.VGroups.AddDef("统计日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("统计日期", "{0}月")
g.Totals.AddDef("备件_属性",AggregateEnum.Count, "备件属性")
g.Totals.AddDef("备件_名称",AggregateEnum.Count, "备件名称")
g.Totals.AddDef("备件_总价", "总金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Subtotal = True
Tables("出库统计_Table1").DataSource = g.BuildDataSource()