主题：[求助]怎么输入电话区号

请教一下怎么可以输入这种格式的电话号  010-56888855   
此主题相关图片如下：qq图片20160418212444.png

 这一列，要用字符列，不能用数值列。

 

 如果要检测电话是否正确，表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

我用的就是字符列。 用了您的代码写上，就可以了。虽然看不懂代码的意思。还是要谢谢大红袍老师

 那输入有什么问题啊？看2楼。

用了您的代码写上，就可以了。虽然看不懂代码的意思。还是要谢谢大红袍老师