如下图,有窗口副本表:![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:1.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-9/20209711103848694.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