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

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

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

有点酸

小大 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

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