主题：[求助]定位行

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] = '" & Forms("目录窗口").Controls("Label2").Text & "'") '从 第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With