以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求按钮代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6052)
--  作者：mr725
--  发布时间：2010/2/27 23:56:00
--  

试着写段代码上来，不成功也吧，咱也可以学点东东，顺便试着“改进”写些，不成的话再请大师们指教啊～  呵呵。
--  作者：czy
--  发布时间：2010/2/28 0:44:00
--  
以选定行为例

同周：

Dim a As Date = Tables("订单").Current("日期")
Dim b as Date = Date.Today
Tables("订单").Filter = "[日期] >= # " & a.AddDays(-a.dayofweek+1) & " # And [日期]  <= # " & a.AddDays(-a.dayofweek+7) &" #"

同季：

Dim a As Date = Tables("订单").Current("日期")
Dim b As integer = (a.Month-1) \\ 3
Dim c As New Date(a.Year,b*3+1,1)
Dim d As New Date(a.Year,b*3+3,Date.DaysInMonth(a.year,b*3+3))
Tables("订单").Filter = "[日期] >= # " & c & " # And [日期]  <= # " & d & "#"
--  作者：czy
--  发布时间：2010/2/28 0:51:00
--  
同月

Dim a As Date = Tables("订单").Current("日期")
a = New Date(a.year,a.month,1)
Dim b as Date = New Date(a.year, a.month, Date.DaysInMonth(a.year, a.Month))
Tables("订单").Filter = "[日期] >= # " & a & " # And [日期]  <= # " & b & "#"

其它几个就不再写了，好象应该简单些。
--  作者：czy
--  发布时间：2010/3/1 15:48:00
--  

你的问题很简单。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table