主题：字段中某些字符以掩码显示

写到哪个事件呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:身份证掩码显示 (2)2.table

老师掩码呢

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("电话不正确")
        Else
            e.DataRow("主手机号1") = e.newvalue
            e.newvalue  = e.newvalue.SubString(0, 3) & "*****" & e.newvalue.SubString(8,3)
           
        End If
    Case "主手机号1"
        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("电话不正确")
        Else
            e.DataRow("主手机号") = e.newvalue.SubString(0, 3) & "*****" & e.newvalue.SubString(8,3)          
        End If       
  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("电话不正确")
        Else
            e.DataRow("第二手机号1") = e.newvalue
            e.newvalue  = e.newvalue.SubString(0, 3) & "*****" & e.newvalue.SubString(8,3)         
        End If
    Case "第二手机号1"
        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("电话不正确")
        Else
            e.DataRow("第二手机号") = e.newvalue.SubString(0, 3) & "*****" & e.newvalue.SubString(8,3)          
        End If       
      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("电话不正确")
        Else
            e.DataRow("第三手机号1") = e.newvalue
            e.newvalue  = e.newvalue.SubString(0, 3) & "*****" & e.newvalue.SubString(8,3)        
        End If
    Case "第三手机号1"
        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("电话不正确")
        Else
            e.DataRow("第三手机号") = e.newvalue.SubString(0, 3) & "*****" & e.newvalue.SubString(8,3)           
        End If
 End Select

运行后身份证号本来输对了老师弹出错误对话框

表中每个尾带1的都是存放掩码手机号的，不带1的都是存放正常手机号的

老师我测试了，掩码列如果修改一个或几个字符时他不验证，对应的正常显示列也不更新

老师掩码列输入重复电话码，不验证的

此主题相关图片如下：124.png

还有就是在正常显示字段输入电话号码离开焦点后提出一个错误对话框

那就没意义了！有其他方法吗？

还有就是在正常显示列输入完数据离开焦点后提出一个对话框“不能这样修改”老师看看哪错了

此主题相关图片如下：127.png

还是弹出错误对话框，并且不更新掩码列的，您测测