主题：求助

例：

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like '%湛江%'", .Position + 1, True ) '从当前行的下一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行。
    End If
End With

变量int1缺少符号