1、不重复,参考
http://www.foxtable.com/webhelp/scr/2481.htm
2、验证手机号,这样写
Select Case e.DataCol.Name
Case "电话"
Dim r_tele As New System.Text.RegularExpressions.Regex("^(1(([35][0-9])|(47)|[8][01236789]))\d{8}$")
Dim r_phone As New System.Text.RegularExpressions.Regex("^0\d{2,3}(\-)?\d{7,8}$")
If r_tele.IsMatch(e.newvalue) = False AndAlso r_phone.IsMatch(e.newvalue) = False Then
msgbox("电话不正确")
End If
End Select
3、多个的列的情况,请做具体例子发上来测试。