各位大神,
我想根据系统时间的星期锁定表中的行,帮忙看看代码哪里错了
Dim lab1 As Date = Date.TodayDim week As Integer = lab1.DayOfWeek
With Tables("表B") Dim dr As Integer dr = .Find("week", 0, "星期", False, False, True) If dr > -1 Then .Position = dr End IfEnd With