“本周计划”
Dim calCommon As New System.Globalization.GregorianCalendar()
Dim dt As Date = Date.Today
dim w = calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)
Tables("当周工作显示窗口_Table1").filter = "年份='" & Date.Today.year & "' and sys_weekofyear='" & w & "'"