- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎么输入电话区号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83865)
-- 发布时间：2016/4/18 21:23:00
-- [求助]怎么输入电话区号
请教一下怎么可以输入这种格式的电话号 010-56888855
此主题相关图片如下：qq图片20160418212444.png
-- 发布时间：2016/4/18 21:27:00
--
这一列，要用字符列，不能用数值列。
如果要检测电话是否正确，表ValidateEdit事件
If e.Col.Name = "联系电话" Then
Dim str As String = e.text
Dim reg As new System.Text.RegularExpressions.Regex("((\\d{11})|^((\\d{7,8})|(\\d{4}|\\d{3})-(\\d{7,8})|(\\d{4}|\\d{3})-(\\d{7,8})-(\\d{4}|\\d{3}|\\d{2}|\\d{1})|(\\d{7,8})-(\\d{4}|\\d{3}|\\d{2}|\\d{1}))$)")
If reg.Ismatch(str) = False Then
msgbox("号码有误")
e.cancel = True
End If
End If
-- 发布时间：2016/4/18 21:28:00
--
我用的就是字符列。 用了您的代码写上，就可以了。虽然看不懂代码的意思。还是要谢谢大红袍老师
[此贴子已经被作者于2016/4/18 21:31:56编辑过]
-- 发布时间：2016/4/18 21:28:00
--
那输入有什么问题啊？看2楼。
-- 发布时间：2016/4/18 21:32:00
--
用了您的代码写上，就可以了。虽然看不懂代码的意思。还是要谢谢大红袍老师