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

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

这样写

 

Dim t As String = e.NewValue

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

    msgbox("错误")

    e.cancel = True

End If

好的，谢谢，就是我这样写的话，其他输入没有问题，就是当我输入汉字时，提示这样的错误，以下分别是源代码和错误提示

我的这一列是字符类型的

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

好的，谢谢   这两句是新语法吗：

这些额外的知识点是不是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的书籍看一下。

好