主题：[求助]关于查找行，并选中行

参考代码

Dim a As String = e.Form.controls("combobox1").value
With Tables("产品列表")
    Dim r As Integer
    r = .FindRow("产品名称 = '" & a & "'", .Position + 1, True ) '从当前行的下一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With