以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  输入错误时，提示并跳转  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72257)
--  作者：newsun2k
--  发布时间：2015/7/27 9:29:00
--  输入错误时，提示并跳转
用户输入错误，或未输入完整，在保存时，会提示错误。
同时我想光标和当前显示的单元格也移动到对应的错误处，
如何实现？
--  作者：大红袍
--  发布时间：2015/7/27 10:24:00
--  

参考代码

 

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