加载本月与本周，代码怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载本月与本周，代码怎么写？

共有9210人关注过本帖树形打印复制链接主题：加载本月与本周，代码怎么写？

zhfe0573

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：194 威望：0 精华：0 注册：2012/2/1 19:20:00

加载本月与本周，代码怎么写？ 发帖心情

Post By：2012/12/6 13:12:00 [只看该作者]

SQL SERVER数据源：

DataTables("订单").LoadFilter = "[日期] = '" &Date.Today & "'"
DataTables("订单").Load

如果是加载本月与本周， &Date.Today & 这里怎么写？

飞

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：732 积分：5491 威望：0 精华：14 注册：2011/8/28 12:49:00

Post By：2012/12/6 14:09:00 [只看该作者]

本月

DATEDIFF(m,日期,GETDATE()) = 0

本周

DATEDIFF(ww,日期,GETDATE()) = 0

见此处

http://www.foxtable.com/help/index.html?n=1508.htm

[此贴子已经被作者于2012-12-6 17:35:49编辑过]

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/6 14:35:00 [只看该作者]

复杂一点这样。

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

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

Dim d As Integer = Date.Today.DayOfWeek
"日期 >= '" & Date.Today.AddDays(-d) & "' And 日期 < '" & Date.Today.AddDays(8-d) & "'"

Dim start As Date = New Date(Date.Today.Year, Date.Today.Month, 1)
"日期 >= '" & start & "' And 日期 < '" & start.AddDays(Date.DaysInMonth(start.Year, start.Month)) & "'"

[此贴子已经被作者于2012-12-6 14:36:24编辑过]

zhfe0573

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：194 威望：0 精华：0 注册：2012/2/1 19:20:00

Post By：2012/12/6 18:20:00 [只看该作者]

解决了,非常感谢

下一主题 >> << 上一主题

主题：加载本月与本周，代码怎么写？