Dim g As New GroupTableBuilder("统计表1", DataTables("data"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("工号")
g.Groups.AddDef("姓名")
g.Totals.AddDef("必要时间")
g.Totals.AddDef("作业时间")
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%")