以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93716)
--  作者：lfxxdt
--  发布时间：2016/12/5 15:08:00
--  数据统计

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语句错误，无法进行统计。
--  作者：有点蓝
--  发布时间：2016/12/5 15:12:00
--  
有些是表达式列来的吧

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()
--  作者：lfxxdt
--  发布时间：2016/12/5 15:17:00
--  
改成这样，提示不存在日报表
--  作者：lfxxdt
--  发布时间：2016/12/5 15:24:00
--  
我知道，这个日报表我是更改名过来的，现在删除，重新建立运行代码可以了。