Foxtable(狐表)用户栏目专家坐堂 → 关于统计表中的本月筛选问题


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

主题:关于统计表中的本月筛选问题

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:9032 威望:0 精华:1 注册:2011/5/25 16:33:00
关于统计表中的本月筛选问题  发帖心情 Post By:2014/3/22 18:05:00 [只看该作者]

 Dim g As New GroupTableBuilder("统计表1", DataTables("广告发布明细"))
g.Build()
g.Filter = "month(出版日期) = month.today"
MainTable = Tables("统计表1")


出版日期格式为2014-02-21,  我想在统计表中筛选出  出版日期的月份为本月的数据 ,红色部分肯定有问题,请问如何表达?



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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/3/22 18:16:00 [只看该作者]

g.Filter = "Convert(出版日期, 'System.String')  Like '%-" & Date.Today.Month & "-%'"

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:9032 威望:0 精华:1 注册:2011/5/25 16:33:00
  发帖心情 Post By:2014/3/22 19:42:00 [只看该作者]

 date.today.month出现的3  而不是03 这格式  我的日期格式为2013-03-23

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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2014/3/22 21:03:00 [只看该作者]

http://www.foxtable.com/help/topics/2720.htm

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:9032 威望:0 精华:1 注册:2011/5/25 16:33:00
  发帖心情 Post By:2014/3/22 23:36:00 [只看该作者]

 还是看不懂
我意思是  月份是10以下的 要弄成  09  08.。。 这种格式

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/3/23 7:58:00 [只看该作者]

g.Filter = "Convert(出版日期, 'System.String')  Like '%-" & Format(Date.Today.Month,"00") & "-%'"

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/3/23 8:03:00 [只看该作者]

要的是正确的结果,中间过程是为最后结果服务的,不补0,能正确筛选。

你看到的是2013-03-31,但取日期值的时候,却是2013-3-31,加了0,结果却不对了。


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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2014/3/23 9:21:00 [只看该作者]

这样比较可靠:

 

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

g.filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"


 回到顶部