Foxtable(狐表)用户栏目专家坐堂 → 语句报错,一下午了


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

主题:语句报错,一下午了

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
语句报错,一下午了  发帖心情 Post By:2015/3/11 18:18:00 [只看该作者]

Dim snxh As Single = DataTables("出库").SQLCOMPUTE("SUM(出库数量*销售单价)","出库日期 = #" & Date.Today.year & "#")

红色部分报错。
目的:统计“出库”表中今年的销售额。字段名无问题,出库日期为日期型
[此贴子已经被作者于2015/3/11 18:20:51编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/11 18:33:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2015/3/11 18:36:00 [只看该作者]

我只要金额一个数字。请改下红色部分。
[此贴子已经被作者于2015/3/11 18:37:53编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/11 19:22:00 [只看该作者]

 你能进步下么?最简单的问题啊,看2楼

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/11 19:24:00 [只看该作者]

Dim d As Date = new Date(Date.Today.year, 1, 1)

Dim snxh As Single = DataTables("出库").SQLCOMPUTE("SUM(出库数量*销售单价)","出库日期 >= #" & d & "# and 出库日期 < #" & d.AddYears(1) & "#")


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


加好友 发短信
等级:狐神 帖子:6875 积分:43524 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2015/3/12 10:51:00 [只看该作者]

日期要用单引号的。


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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2015/3/12 10:56:00 [只看该作者]

有点甜,我的目的:整个项目中有许多表,因此也会有许多的统计结果,我想将一些关键性的信息集中在一起,又不想全部使用统计表。如图所示,
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看。所以才有上面的想法。你给的代码说在#附近报错

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/12 10:58:00 [只看该作者]

 5楼不是已经给你答案了么?如果你的是sqlserver数据库,就用单引号

 

Dim d As Date = new Date(Date.Today.year, 1, 1)

Dim snxh As Single = DataTables("出库").SQLCOMPUTE("SUM(出库数量*销售单价)","出库日期 >= '" & d & "' and 出库日期 < '" & d.AddYears(1) & "'")


 回到顶部