主题：输入错误时，提示并跳转

参考代码

If e.DataRow("第一列") <> "123456" Then
    e.Cancel = True
    msgbox("出错")
    Dim idx As Integer = Tables("表A").FindRow(e.DataRow)
    If idx > -1 Then
        Tables("表A").Select(idx, 0)
        Tables("表A").StartEditing
    End If
End If