Foxtable(狐表)用户栏目专家坐堂 → 请教,这个公式哪儿错了?


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

主题:请教,这个公式哪儿错了?

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


加好友 发短信 一级勋章
等级:六尾狐 帖子:1412 积分:8937 威望:0 精华:0 注册:2008/9/1 8:57:00
请教,这个公式哪儿错了?  发帖心情 Post By:2008/9/19 9:22:00 [只看该作者]

我想在这个表中筛选日期的月份为1的记录,这个公式哪儿错了?注意在实际使用时我要把1用一个变量来代替.
Tables("表A").Filter=" [日期].month=1 "
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:筛选月份.table

[此贴子已经被作者于2008-9-19 9:24:22编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/19 9:27:00 [只看该作者]

哈哈,大错特错,先仔细看看表达式这一章的说明。

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/19 9:29:00 [只看该作者]

表达式根本就没有month

只能:

[日期] >= #1/1/2008# And [日期] <= #1/31/2008#


如何取得每个月的第一天和最后一天,我记得帮助有说明的。

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


加好友 发短信 一级勋章
等级:六尾狐 帖子:1412 积分:8937 威望:0 精华:0 注册:2008/9/1 8:57:00
  发帖心情 Post By:2008/9/19 9:32:00 [只看该作者]

以下是引用狐狸爸爸在2008-9-19 9:29:00的发言:
表达式根本就没有month

只能:

[日期] >= #1/1/2008# And [日期] <= #1/31/2008#


如何取得每个月的第一天和最后一天,我记得帮助有说明的。

贺老师,,没有办法这样用,我前面说了,在实际运用的时候,这个月份值是一个变量,例如我想筛选日期的月份等于aa的记录(aa是一个整数型数量),该怎么办?


 回到顶部
美女呀,离线,留言给我吧!
shxiaoya
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:191 积分:1442 威望:0 精华:2 注册:2008/9/7 21:30:00
  发帖心情 Post By:2008/9/19 9:39:00 [只看该作者]

增加个月份列

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/19 9:42:00 [只看该作者]

多看几次帮助,这样的代码就可以轻松写出来:

 

Dim StartDate As Date

Dim EndDate As Date

Dim Month As Integer = 6 '指定月份

Dim Year As Integer = 1999 '指定年份

StartDate = New Date(Year,Month,1)

EndDate = New Date(Year,Month,Date.DaysInMonth(Year,Month))

Tables("订单").Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"

这个准备加入帮助了


[本帖被加为精华]
 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/9/19 9:47:00 [只看该作者]

提示

    每个月的第一天和最后一天
    Dim FirstDay As Date = New Date(today().Year,aa,1)
    Dim LastDay As Date = New Date(today().Year,aa,Days)


其他的相信楼主可以自己会写吧。


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


加好友 发短信 一级勋章
等级:六尾狐 帖子:1412 积分:8937 威望:0 精华:0 注册:2008/9/1 8:57:00
  发帖心情 Post By:2008/9/19 10:30:00 [只看该作者]

以下是引用狐狸爸爸在2008-9-19 9:42:00的发言:

多看几次帮助,这样的代码就可以轻松写出来:

 

Dim StartDate As Date

Dim EndDate As Date

Dim Month As Integer = 6 '指定月份

Dim Year As Integer = 1999 '指定年份

StartDate = New Date(Year,Month,1)

EndDate = New Date(Year,Month,Date.DaysInMonth(Year,Month))

Tables("订单").Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"

这个准备加入帮助了

已经明白了,谢谢贺老师,也谢谢楼上几位热心的老兄。只是,我对哪些函数和方法能在表达式中使用,哪些不能在表达式中使用,还是有些含糊,帮助中说得也不够详细,希望帮助中能够说得再详细一些。


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


加好友 发短信
等级:超级版主 帖子:485 积分:2996 威望:0 精华:10 注册:2008/9/12 14:37:00
  发帖心情 Post By:2008/9/19 10:30:00 [只看该作者]

表达式能用的函数,帮助有说明的。


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


加好友 发短信
等级:超级版主 帖子:485 积分:2996 威望:0 精华:10 注册:2008/9/12 14:37:00
  发帖心情 Post By:2008/9/19 10:45:00 [只看该作者]

如果要增加一个月份列,可以用下面的表达式计算月份:

Convert(IIF(SUBSTRING(Convert([日期], 'System.String'),7,1) = '-',   SUBSTRING(Convert([日期], 'System.String'),6,1),SUBSTRING(Convert([日期], 'System.String'),6,2)),'System.Int16')

[此贴子已经被作者于2008-9-19 10:45:16编辑过]

 回到顶部
总数 11 1 2 下一页