Dim g As New GroupTableBuilder("日报表", DataTables("成瓷报表"))
g.Groups.AddDef("报表日期", DateGroupEnum.Day, "日")
g.Totals.AddDef("出窑总数")
g.Totals.AddDef("合格总数")
g.Totals.AddDef("缺陷总数")
g.Totals.AddDef("复火总数")
g.Totals.AddDef("复火合格数")
g.Totals.AddDef("复火缺陷数")
g.Totals.AddDef("出窑板次")
g.Totals.AddDef("产值")
g.Totals.AddDef("出窑总数"/"合格总数") '如何实现计算列,算出合格率
g.VerticalTotal = True
g.Decimals = 2
g.Build()
MainTable = Tables("日报表")