主题：[求助]自动获取周的筛选问题

Dim vv As Date = 输入的值
Dim w As Integer = vv.DayOfWeek '算出今天是星期几
Dim dt1 As Date = vv.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = vv.AddDays(6 - w) '获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter