- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：窗口副本表的多条件筛选的代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154178)
-- 发布时间：2020/9/7 11:25:00
-- 求助：窗口副本表的多条件筛选的代码问题
如下图，有窗口副本表：
此主题相关图片如下：1.jpg
我要实现的效果是：当页签的标题为"本周与下周工作重点"时，tables("开发者主控窗口_工作重点计划表_下周")筛选出：“计划时间”在本周内，且“时段”是“下周”的记录和“计划时间”在下周内，且“时段”是“本周”的记录
于是，我在SelectedIndexChanged事件中写了如下代码：
For Each dr As DataRow In DataTables("工作重点计划表").DataRows
Dim y As String = dr("计划时间").year
Dim m As String = dr("计划时间").month
Select Case e.Sender.SelectedPage.Text
Case "本周与下周工作重点"
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(1-w) \'获取本周的星期一的日期
Dim dt2 As Date = Date.Today.AddDays(7 - w) \'获取本周的星期天的日期
Dim dt3 As Date = Date.Today.AddDays(8-w) \'获取下周的星期一的日期
Dim dt4 As Date = Date.Today.AddDays(14 - w) \'获取下周的星期天的日期
If y = Date.Today.Year And m =Date.Today.Month
Tables("开发者主控窗口_工作重点计划表_本周").Filter = "计划时间 >=#" & dt1 & "# and 计划时间 <=#" & dt2 & "# and 时段 = \'本周\' "
Tables("开发者主控窗口_工作重点计划表_下周").Filter = "计划时间 >=#" & dt1 & "# and 计划时间 <=#" & dt2 & "# and 时段 = \'下周\' " & "or" & "计划时间 >=#" & dt3 & "# and 计划时间 <=#" & dt4 & "# and 时段 = \'本周\' " （这句代码有问题，应该怎么写？请指点，谢谢！）
End If
End Select
Next
-- 发布时间：2020/9/7 11:48:00
--
Tables("开发者主控窗口_工作重点计划表_下周").Filter = "(计划时间 >=#" & dt1 & "# and 计划时间 <=#" & dt2 & "# and 时段 = \'下周\') or (计划时间 >=#" & dt3 & "# and 计划时间 <=#" & dt4 & "# and 时段 = \'本周\') "
-- 发布时间：2020/9/7 12:19:00
--
谢谢老师