主题：[再次求助]想根据系统时间的星期定位表中的行

各位大神，

我想根据系统时间的星期锁定表中的行，帮忙看看代码哪里错了

Dim lab1 As Date = Date.Today
Dim 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 If
End With