想利用窗口的3个CheckBox控件作为条件，分组统计，请高手看看注明写代码？
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 or [工序_正常抽检]=cj or [工序_返工]=fg"
g.Build()
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()
加好友 
发短信
Post By：2018/5/24 10:00:00 [只看该作者]
