Tables("生产合同明细").Visible = True
Dim LF As String = DataTables("生产合同明细").LoadFilter
DataTables("生产合同明细").LoadFilter = ""
Dim g As New GroupTableBuilder("合同进度", DataTables("生产合同明细"))
g.Caption = "合同进度"
g.Groups.AddDef("生产合同编号")
g.Groups.AddDef("CMID")
g.Groups.AddDef("器型")
g.Groups.AddDef("釉色")
g.Groups.AddDef("花面")
g.Groups.AddDef("材质")
g.Totals.AddDef("订单数量", "订单数量")
g.Totals.AddDef("生产合格数量", "生产合格数量")
g.Totals.AddDef("允许超产数量", "允许超产数量")
g.Totals.AddDef("生产合格数量", "超产数量")
g.Totals.AddDef("超产比例", "超产比例")
g.FromServer = True '直接后通统计'
g.Filter = "生产合同编号 Is Not Null"
g.Build()
DataTables("生产合同明细").LoadFilter = LF
MainTable = Tables("合同进度")
加上红色代码部分,就能统计出来了
一定要这样写 统计条件是吗?