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

With CurrentTable
    Dim r As Integer   
    Dim r1 As WinForm.ComboBox = e.Form.Controls("按编号")
    r = .FindRow("[编号] = 'r1'", .Position + 1, True ) '从当前行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

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

只有字符才需要单引号

上面执行后提示编译错误

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

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

编译错误，定位一个怎么这么难啊，建议增加一个类似查找框的控件，属性设置有 定位或筛选！


此主题相关图片如下：qq截图未命名.jpg

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

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

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

点击浏览该文件:管理项目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

实在不好意思，帮助文件根本不知从哪里看起。唉，先谢谢了。狐爸这么细心的解答，我很惭愧啊。

从头看起