Dim yf As WinForm.ComBoBox = e.Form.Controls("ComboBox60")
Dim g As New GroupTableBuilder("统计表1", DataTables("明细根表"))
g.Groups.AddDef("运输审核_结算月")
g.Groups.AddDef("SCTJBH", "标号")
g.Totals.AddDef("生量", "生产方量")
g.Totals.AddDef("销量", "销售方量")
g.VerticalTotal = True
g.Filter = "[运输审核_结算月] ='" & yf.text & "' and [SCTJBH] is not Null"
Tables("统计总表_Table107").DataSource = g.BuildDataSource()
Tables("统计总表_Table107").AutoSizeCols()
Tables("统计总表_Table107").Cols("运输审核_结算月").Visible = False