Dim b As New GroupTableBuilder("IL接头任务单杆数统计",DataTables("IL接头任务单"))
b.Groups.Clear()
b.Filter = Tables("IL接头任务单").Filter
b.Filter = "[piao号日期] > #” date.today & "#"
b.Groups.AddDef("piao号日期", DateGroupEnum.None)
b.Groups.AddDef("铜铝")
b.Totals.AddDef("总杆数")
b.Build
MainTable = Tables("IL接头任务单杆数统计")
参考: