主题：数据统计

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语句错误，无法进行统计。

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 GroupTableBuilder("月报表",datatables("日报表"))
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()

改成这样，提示不存在日报表

我知道，这个日报表我是更改名过来的，现在删除，重新建立运行代码可以了。