- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请问一下，我的意思是这个列只能输入11位整数的手机号码，这个要怎么改呢，求解 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113465)
-- 发布时间：2018/1/16 14:55:00
-- 请问一下，我的意思是这个列只能输入11位整数的手机号码，这个要怎么改呢，求解
请问一下，我的意思是这个列只能输入11位整数的手机号码，这个要怎么改呢，求解
此主题相关图片如下：qq截图20180116145404.png
-- 发布时间：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
-- 发布时间：2018/1/16 16:40:00
--
好的，谢谢，就是我这样写的话，其他输入没有问题，就是当我输入汉字时，提示这样的错误，以下分别是源代码和错误提示
If e.DataCol.Name="客户手机号" Then
Dim x As String = e.NewValue
If IsNumeric(x) And Len(x) = 11 And Left(x, 1) = 1 Then
Return
Else
e.Cancel=True
MessageBox.Show("号码格式错误,请重新输入","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
此主题相关图片如下：qq截图20180116163849.png
-- 发布时间：2018/1/16 16:41:00
--
我的这一列是字符类型的
-- 发布时间：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
-- 发布时间：2018/1/16 17:05:00
--
好的，谢谢 这两句是新语法吗：
Dim r_tele As New System.Text.RegularExpressions.Regex("^1[0-9]{10}$")
If x > "" andalso r_tele.IsMatch(x) = False Then
If x > "" andalso r_tele.IsMatch(x) = False Then
还有这个x>"" 我感觉我知道他的意思，但又很模糊，是不是非空的意思，跟数字有关系的吗
-- 发布时间：2018/1/16 17:08:00
--
这些额外的知识点是不是vb语言的，可以通过买一本vb基础编程书籍来看 有帮助吗，对这个foxtable
-- 发布时间：2018/1/16 18:05:00
--
以下是引用lzw001在2018/1/16 17:08:00的发言：
这些额外的知识点是不是vb语言的，可以通过买一本vb基础编程书籍来看 有帮助吗，对这个foxtable
这些额外的知识点是不是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的书籍看一下。
-- 发布时间：2018/1/17 0:22:00
--
好