主题：[求助]窗口分组统计

Dim fg As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim cj As WinForm.CheckBox = e.Form.Controls("CheckBox2")
Dim jc As WinForm.CheckBox = e.Form.Controls("CheckBox3")
Dim g As New GroupTableBuilder("统计表1", DataTables("data"))

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("工号")
g.Groups.AddDef("姓名")
g.Totals.AddDef("作业时间")
g.Totals.AddDef("必要时间")
g.Totals.AddDef("生产数")
g.Filter = "[工序_检查]='" & jc.Checked & "' or [工序_正常抽检]='" & cj.Checked & "' or [工序_返工]='" & fg.Checked & "'"
g.VerticalTotal = True
Tables("生产效率_Table1").DataSource = g.BuildDataSource()
Dim t As Table = Tables("生产效率_Table1")
Dim dc = t.DataTable.DataCols.Add("生产能率", Gettype(Double),"必要时间/作业时间")
dc.SetFormat("0.00%")
Tables("生产效率_Table1").AutoSizeCols()