Dim g As New GroupTableBuilder("收费清单", DataTables("表A1"))
g.Groups.AddDef("日期")
g.Groups.AddDef("收费员")
g.Groups.AddDef("班次")
g.Totals.AddDef("班次", AggregateEnum.Count, "出口次数")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("收费清单")
Dim g1 As New CrossTableBuilder("值班统计", DataTables("收费清单"))
G1.HGroups.AddDef("收费员")
G1.VGroups.AddDef("班次")
G1.Totals.AddDef("班次", AggregateEnum.Count, "值班次数")
G1.Totals.AddDef("出口次数", "出口车次")
G1.Totals.AddDef("金额", "金额")
G1.HorizontalTotal = True
G1.VerticalTotal = True
G1.Build()