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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分开去年和当年的周期

共有3609人关注过本帖树形打印复制链接主题：分开去年和当年的周期

有点酸

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

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2015/4/13 21:08:00 [显示全部帖子]

参考：

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

Dim y As Integer = 2011 '指定年份

Dim dt1 As New Date(y, 1, 1)

Dim dt2 As New Date(y, 12, 31)

Dim Filter As String = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

e.Form.Controls("Table2").Table.Filter = "事件类型 = '工作' And (类型分类 = '加工' Or 类型分类 = '其它') And 周期 = " & DatePart("ww",Date.Today) & “ And ” & Filter

有点酸

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

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2015/4/13 21:45:00 [显示全部帖子]

我用一个隐藏的Label来记录和当前周偏移的周数，0表示本周，-1表示上一周，1表示小一周，2表示再下一周，类推

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

[此贴子已经被作者于2015/4/13 21:46:11编辑过]

主题：分开去年和当年的周期