联系方式设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 联系方式设置

共有2016人关注过本帖树形打印复制链接主题：联系方式设置

有点蓝

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

加好友

发短信

等级：超级版主帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/6/29 20:41:00 [显示全部帖子]

ElseIf e.KeyCode <> Keys.back Then 如果不是退格符就不允许输入

If txt > "" Then
    Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    If rgx.isMatch(txt) = False Then
        e.Sender.Error = "联系方式是11位数!"
        e.cancel = True
    Else '输入正确，取消错误提示
        e.Sender.Error = ""
    End If
Else '没有输入内容，取消错误提示
    e.Sender.Error = ""
End If

http://www.foxtable.com/webhelp/scr/2677.htm

[此贴子已经被作者于2018/6/30 10:34:05编辑过]