以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动获取周的筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85624)
--  作者：349289451
--  发布时间：2016/5/30 15:32:00
--  [求助]自动获取周的筛选问题

例如筛选本周的订单：

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


以上是帮助件里的一个例子   

现在想法是这样的   能不能在窗口中  加一个文本控件  然后随意输入一个时间 点击 筛选按钮  自动筛选出这个时间所在周的所有数据
--  作者：狐狸爸爸
--  发布时间：2016/5/30 16:45:00
--  
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
--  作者：349289451
--  发布时间：2016/5/30 19:03:00
--  
跪谢