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

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

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

ybil

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

等级：超级版主帖子：521 积分：4916 威望：0 精华：7 注册：2008/9/2 22:22:00

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

Dim s1,flt1,flt2 As String

Dim d11,d12 As Date

d11=Date.Today.AddDays(-Date.Today.DayOfWeek)

d12=d11.AddDays(7)

s1 = " And (日期 >=#" & d11 & "# and 日期 < #" & d12 & "#)"

flt1 = "事件类型 = '项目' And (类型分类 = '网店' Or 类型分类 = '打印机') "

flt2 = "事件类型 = '工作' And (类型分类 = '加工' Or 类型分类 = '其它') "

Forms("窗口1").Controls("Table1").Table.Filter =flt1 & s1

Forms("窗口1").Controls("Table2").Table.Filter = flt2 & s1

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