主题：[求助]findrow的时候，代码没有错，列里面的行也都有，就是提示错误。

改成

With Tables("成品入库表")
    Dim r As Integer
    r = .FindRow("[客户名称] = '" & Tables("销售单").Current("客户") & "'")
    If r >= 0 Then '如果找到符合条件的行
        Tables("选择型号_Table1").Filter = "[客户名称] = '" & Tables("销售单").Current("客户") & "'"
    Else
        e.Form.Close
        MessageBox.Show("没有该客户的入库产品")
    End If
End With