Foxtable(狐表)用户栏目专家坐堂 → [求助] '#' 附近有语法错误


  共有2000人关注过本帖树形打印复制链接

主题:[求助] '#' 附近有语法错误

帅哥哟,离线,有人找我吗?
liumiao123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
[求助] '#' 附近有语法错误  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106017 积分:539172 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/28 16:15:00 [只看该作者]

如果是SqlServer,看看:http://www.foxtable.com/webhelp/topics/2343.htm

 回到顶部
帅哥哟,离线,有人找我吗?
liumiao123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
回复:(有点蓝)如果是SqlServer,看看:http://www....  发帖心情 Post By:2020/6/28 16:22: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 & "#" 
DataTables("发货信息").LoadFilter = Filter
DataTables("发货信息").Load()


就是这段报错

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106017 积分:539172 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/28 16:27:00 [只看该作者]

请仔细看看2楼的说明

 回到顶部
帅哥哟,离线,有人找我吗?
liumiao123
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
liumiao123
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
回复:(有点蓝)请仔细看看2楼的说明  发帖心情 Post By:2020/6/28 16:43: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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106017 积分:539172 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/28 16:47:00 [只看该作者]

除非数据有问题,否则不可能的。具体上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
liumiao123
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
回复:(有点蓝)除非数据有问题,否则不可能的。具体...  发帖心情 Post By:2020/6/28 16:55:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:002.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:001.jpg
图片点击可在新窗口打开查看
老师请看
哪里错了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106017 积分:539172 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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") '打开生成的统计表

 回到顶部