位数不正确时，自动提醒错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 位数不正确时，自动提醒错误

共有3094人关注过本帖树形打印复制链接主题：位数不正确时，自动提醒错误

天宇科技

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：475 积分：4058 威望：0 精华：0 注册：2018/5/13 15:18:00

位数不正确时，自动提醒错误 发帖心情

Post By：2021/3/25 21:35:00 [只看该作者]

当身份证号不等于18位于时，就提醒。但这个代码，提醒后点几次确定，就可以输入下一列的内容，错在哪儿

我想实现的让操作者必须完成18位的数值输入才行。
Dim s As String =Tables("高级一览表").Current("证件号码")

If e.DataCol.Name = "证件号码" Then
    If s.Length <> 18 Then
        Dim Result As DialogResult
        Result = MessageBox.Show("身份证号码不正确,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
        If result =DialogResult.yes
            e.Cancel = True
        End If
    End If
End If