呵呵,完美一下,不会产生两个表:
Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("工位")
g.Groups.AddDef("批次")
g.Totals.AddDef("工位", AggregateEnum.Count, "次数")
g.Totals.AddDef("数量")
g.Totals.AddDef("数量", AggregateEnum.Average, "平均")
Dim g2 As New GroupTableBuilder("统计表1", g.Build(
False))
g2.Groups.AddDef("工位")
g2.Totals.AddDef("数量")
g2.Totals.AddDef("平均","产量")
g2.Build()
MainTable = Tables("统计表1")
[此贴子已经被作者于2015/6/9 11:01:04编辑过]