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

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、多个的列的情况，请做具体例子发上来测试。

写到哪个事件呢？

 

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

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

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

点击浏览该文件:身份证掩码显示 (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的都是存放正常手机号的

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

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

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

 

 

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

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

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

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

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

 

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

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

测试，没问题，请重新输入数据测试。

我退出程序后程序登录了也不行
此主题相关图片如下：1245.png


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