Foxtable(狐表)用户栏目专家坐堂 → 统计本日、本周、本月、本季度、本年分组统计表达式如何设置


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

主题:统计本日、本周、本月、本季度、本年分组统计表达式如何设置

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


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
统计本日、本周、本月、本季度、本年分组统计表达式如何设置  发帖心情 Post By:2018/10/30 10:36:00 [只看该作者]

统计本日、本周、本月、本季度、半年、本年分组统计表达式如何设置?
在狐表设置分组统计,条件设置中是否设置表达式就可以完成。表达式如何写?我怎么写都提示不对。

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


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


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


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/10/30 12:50: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

g.Filter = "出库时间 >= '" & dt1 & "' And 出库时间 <= '" & dt2 & "'" 

运行报错:
错误所在事件:窗口,销售汇总,Button6,Click
详细错误信息:
从字符串“出库时间 >= '2018/1/10'”到类型“Long”的转换无效。
输入字符串的格式不正确。
SQL数据库日期格式:2018-09-21 21:10:02.000
我用的是SQL数据库,进行的是后台数据统计,数据库出库时间为含分秒的LONG型。我如何转换为不含小时分秒的date型

[此贴子已经被作者于2018/10/30 14:10:06编辑过]

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


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

 

日期为什么是long型?明显是错误的。请改成datetime类型才是日期。

 

 

 


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


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/10/30 16:54:00 [只看该作者]

但我的SQL数据库日期类型就是datetime类型的。只是在SQL数据库储存数据的格式:2018-09-21 21:10:02.000

还有我论坛的添加附件不能用,点击没反应。
[此贴子已经被作者于2018/10/30 16:54:46编辑过]

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


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

 

贴出你写的完整代码,以及你执行代码时报的错误。

 

 


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


加好友 发短信
等级:三尾狐 帖子:659 积分:5357 威望:0 精华:0 注册:2018/5/19 22:27:00
  发帖心情 Post By:2018/10/30 18:18:00 [只看该作者]

Afterload中写下面代码,窗口打开后为什么两个日期输入框内 没有值。两个控件没有绑定表
Dim ks As String = e.Form.Controls("DateTimePicker1").Value
Dim js As String = e.Form.Controls("DateTimePicker2").Value
ks =  Date.Today
js = Date.Today

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


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

e.Form.Controls("DateTimePicker1").Value = Date.Today
e.Form.Controls("DateTimePicker2").Value = Date.Today

 回到顶部