Dim y As Integer = e.Form.Controls("NumericComboBox1").Value '指定年份
Dim m As Integer = e.Form.Controls("ComboBox1").Value '指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取该月的最后一天
Dim b1 As New SQLGroupTableBuilder("月报表","日报表")
b1.Filter = "日期 >= '" & dt1 & "' And 日期 <= '" & dt2 & "'"
b1.Groups.AddDef("日期",DateGroupEnum.month,"月份")
b1.Groups.AddDef("姓名")
b1.Groups.AddDef("名称")
b1.Groups.AddDef("单价")
b1.Totals.AddDef("数量")
b1.Totals.AddDef("金额")
b1.VerticalTotal = True
b1.Build
Tables("月报表").SetColVisibleWidth("月份|45|姓名|60|名称|100|单价|45|数量|60|金额|70")
Forms("月报表").Show()
这个我是软件内部建立的日报表,进行月报表统计时运行以上代码运行怎么不能进行统计,提示生成SQL语句错误,无法进行统计。