求按钮代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求按钮代码

共有12517人关注过本帖树形打印复制链接主题：求按钮代码

liuruihua	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	求按钮代码 Post By：2010/2/27 23:06:00 [只看该作者] 用户已被锁定

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/2/27 23:56:00 [只看该作者]

试着写段代码上来，不成功也吧，咱也可以学点东东，顺便试着“改进”写些，不成的话再请大师们指教啊～呵呵。

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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

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

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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 & "#"

其它几个就不再写了，好象应该简单些。

liuruihua	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2010/2/28 11:02:00 [只看该作者] 用户已被锁定

liuruihua	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2010/3/1 14:57:00 [只看该作者] 用户已被锁定

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/3/1 15:48:00 [只看该作者]

你的问题很简单。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.table

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

主题：求按钮代码