主题：定位代码怎么不行？

r = .FindRow("[编号] = " & r1, .Position + 1, True ) '从当前行开始查找

只有字符才需要单引号

r = .FindRow("[编号] = '" & r1 & "'", .Position + 1, True ) '从当前行开始查找

帮助中有单引号和双引号的说明，如何合成表达式也有讲解，请仔细看一下。

很简单的一个问题，搞不定是因为你根本就没有认真地看过帮助文件

自己仔细看看下面的例子，你原来的代码，有太多的低级错误：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.table

 

With CurrentTable

    Dim r As Integer   

    Dim r1 As String = e.Form.Controls("按编号").value

    r = .FindRow("[编号] = '" & r1 & "'", .Position + 1, True ) '从当前行开始查找

    If r >= 0 Then '如果找到的话

        .Position = r '定位到找到的行.

    End If

End With

从头看起