共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：求按钮代码
1楼
liuruihua 发表于：2010/2/27 23:06:00用户已锁定！
2楼
mr725 发表于：2010/2/27 23:56:00试着写段代码上来，不成功也吧，咱也可以学点东东，顺便试着“改进”写些，不成的话再请大师们指教啊～ 呵呵。
3楼
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 & "#"
同周：
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 & "#"
4楼
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 & "#"
其它几个就不再写了，好象应该简单些。
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 & "#"
其它几个就不再写了，好象应该简单些。
5楼
liuruihua 发表于：2010/2/28 11:02:00用户已锁定！
6楼
liuruihua 发表于：2010/3/1 14:57:00用户已锁定！
7楼
czy 发表于：2010/3/1 15:48:00
共7 条记录, 每页显示 10 条, 页签:
[1]