- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] '#' 附近有语法错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151572)
-- 发布时间：2020/6/28 15:20:00
-- [求助] '#' 附近有语法错误
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：加载[发货信息]失败!
详细错误信息：
\'#\' 附近有语法错误。
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("发货信息").LoadFilter = Filter
DataTables("发货信息").Load()
Dim b As New GroupTableBuilder("统计表1",DataTables("发货信息"))
b.Groups.AddDef("日期","月份") \'添加日期列用于分组,并用"月份"代替原名称
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Build \'生成统计表
MainTable = Tables("统计表1") \'打开生成的统计表
-----------------------------------------------------
我用SQL数据源就报错
本地数据源就没有问题
请问老师这是哪里错了
此主题相关图片如下：002.jpg
此主题相关图片如下：001.jpg
[此贴子已经被作者于2020/6/28 16:13:00编辑过]
-- 发布时间：2020/6/28 16:15:00
--
如果是SqlServer，看看：http://www.foxtable.com/webhelp/topics/2343.htm
-- 发布时间：2020/6/28 16:22:00
-- 回复：（有点蓝）如果是SqlServer，看看：http://www....
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("发货信息").LoadFilter = Filter
DataTables("发货信息").Load()
就是这段报错
-- 发布时间：2020/6/28 16:27:00
--
请仔细看看2楼的说明
-- 发布时间：2020/6/28 16:42:00
--
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("发货信息").Filter = Filter
Dim b As New GroupTableBuilder("统计表1",DataTables("发货信息"))
b.Groups.AddDef("日期","月份") \'添加日期列用于分组,并用"月份"代替原名称
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Build \'生成统计表
MainTable = Tables("统计表1") \'打开生成的统计表
-------------
请问老师
怎么还会把上一年的数据统计
此主题相关图片如下：001.jpg
-- 发布时间：2020/6/28 16:43:00
-- 回复：（有点蓝）请仔细看看2楼的说明
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("发货信息").Filter = Filter
Dim b As New GroupTableBuilder("统计表1",DataTables("发货信息"))
b.Groups.AddDef("日期","月份") \'添加日期列用于分组,并用"月份"代替原名称
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Build \'生成统计表
MainTable = Tables("统计表1") \'打开生成的统计表
-------------
请问老师
怎么还会把上一年的数据统计
此主题相关图片如下：001.jpg
-- 发布时间：2020/6/28 16:47:00
--
除非数据有问题，否则不可能的。具体上传实例说明
-- 发布时间：2020/6/28 16:55:00
-- 回复：（有点蓝）除非数据有问题，否则不可能的。具体...
此主题相关图片如下：002.jpg
此主题相关图片如下：001.jpg
老师请看
哪里错了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2020/6/28 17:24:00
--
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("表A").Filter = Filter
Dim b As New GroupTableBuilder("统计表1",DataTables("表A"))
b.Groups.AddDef("日期","月份") \'添加日期列用于分组,并用"月份"代替原名称
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Filter = Filter
b.Build \'生成统计表
MainTable = Tables("统计表1") \'打开生成的统计表