如下图，有窗口副本表：
此主题相关图片如下：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
加好友 
发短信
Post By：2020/9/7 11:25:00 [只看该作者]
