Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

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

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

[此贴子已经被作者于2008-9-19 9:24:22编辑过]
2楼
狐狸爸爸 发表于:2008/9/19 9:27:00
哈哈,大错特错,先仔细看看表达式这一章的说明。
3楼
狐狸爸爸 发表于:2008/9/19 9:29:00
表达式根本就没有month

只能:

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


如何取得每个月的第一天和最后一天,我记得帮助有说明的。
4楼
cpayinyuan 发表于:2008/9/19 9:32:00
以下是引用狐狸爸爸在2008-9-19 9:29:00的发言:
表达式根本就没有month

只能:

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


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

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

5楼
shxiaoya 发表于:2008/9/19 9:39:00
增加个月份列
6楼
狐狸爸爸 发表于: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 & "#"

这个准备加入帮助了

7楼
kylin 发表于: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)


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

8楼
cpayinyuan 发表于: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楼
贺老六 发表于:2008/9/19 10:30:00

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

10楼
贺老六 发表于: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 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02930 s, 3 queries.