加入下面红色代码,执行后,弹出什么?
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("涂胶检验"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("日期",DateGroupEnum.Month,"月")
b.Groups.AddDef("日期",DateGroupEnum.day,"日")
b.Groups.AddDef("型号")
b.Totals.AddDef("投入",AggregateEnum.sum,"投入")
b.Totals.AddDef("不良率",AggregateEnum.sum,"不良率")
msgbox(1)
dt = b.Build(False) '参数设置为False,生成一个临时表,不在主界面显示
msgbox(2)