请问一下，我的意思是这个列只能输入11位整数的手机号码，这个要怎么改呢，求解 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问一下，我的意思是这个列只能输入11位整数的手机号码，这个要怎么改呢，求解

共有2090人关注过本帖树形打印复制链接主题：请问一下，我的意思是这个列只能输入11位整数的手机号码，这个要怎么改呢，求解

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/16 16:33:00 [显示全部帖子]

这样写

Dim t As String = e.NewValue

If t > "" AndAlso t.length <> 11 Then

msgbox("错误")

e.cancel = True

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/16 16:56:00 [显示全部帖子]

If e.DataCol.Name="客户手机号" Then
    Dim x As String = e.NewValue
    Dim r_tele As New System.Text.RegularExpressions.Regex("^1[0-9]{10}$")
    If x > "" andalso r_tele.IsMatch(x) = False Then
        e.Cancel=True
        MessageBox.Show("号码格式错误,请重新输入","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/16 18:05:00 [显示全部帖子]

以下是引用lzw001在2018/1/16 17:08:00的发言：
这些额外的知识点是不是vb语言的，可以通过买一本vb基础编程书籍来看有帮助吗，对这个foxtable

这个是正则表达式 https://baike.baidu.com/item/%E6%AD%A3%E5%88%99%E8%A1%A8%E8%BE%BE%E5%BC%8F/1700215?fr=aladdin

建议还是买一本c#或者vb.net的书籍看一下。

下一主题 >> << 上一主题

主题：请问一下，我的意思是这个列只能输入11位整数的手机号码，这个要怎么改呢，求解