Dim b2 As New SQLGroupTableBuilder("订餐月报表","订餐数据")
b2.C
b2.Filter = "DateTimes>= '" & dt1 & "' and DateTimes <='" & dt2 & "' and GrayRecFlag is not null"
b2.Groups.AddDef("日期时间",DateGroupEnum.Month,"月份")
b2.Groups.AddDef("姓名")
b2.Groups.AddDef("部门")
b2.Groups.AddDef("工厂")
b2.Totals.AddDef("次数",AggregateEnum.count,"订餐次数")
b2.Build
Tables("订餐月报表").SetColVisibleWidth("月份|70|姓名|60|部门|90|工厂|50|订餐次数|80")
Forms("订餐月报表").Show()
以上代码运行后出错,主要是日期时间这里,应该如何修改。