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

传递给Find的必须是字符型的值：

Dim lab1 As Date = Date.Today
Dim week As String = 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