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

ContextMenus("Column").Items("Hide").visible

这个我已经知道了，我是说在功能区中"数据表"的功能区中的列相关中的“取消隐藏列”和“隐藏列”怎么隐藏？

用法完全一样：http://www.foxtable.com/webhelp/scr/1526.htm

If e.DataCol.name Like "*手机号" Then
    Dim r_tele As New System.Text.RegularExpressions.Regex("^1[01236789][0-9]{9}$")
    If e.newvalue = "" Then
        systemready = False
        e.DataRow(e.DataCol.name & "掩码显示") = ""
        systemready = True
    Else
        If r_tele.IsMatch(e.newvalue) = False Then
            msgbox("电话不正确")
            e.cancel = True
        Else
            For Each dr As DataRow In e.DataTable.Select("")
                For Each c As DataCol In e.DataTable.DataCols
                    If c.name Like "*手机号" Then
                        If e.newvalue = dr(c.name) Then
                            If e.DataRow("_Identify") <> dr("_Identify") OrElse e.DataCol.name <> c.name Then
                                msgbox("不允许重复")
                                e.cancel = True
                            End If
                        End If
                    End If
                Next
            Next
        End If
        If e.cancel = False Then
            systemready = False
            e.DataRow(e.DataCol.name & "掩码显示") = e.newvalue.SubString(0, 3) & "*****" & e.newvalue.SubString(8,3)
            systemready = True
        End If
    End If
End If
If e.DataCol.name Like "*手机号掩码显示" Then
    If e.NewValue = "" Then
        systemready = False
        e.DataRow(e.DataCol.name.SubString(0,e.DataCol.name.length-4)) = ""
        systemready = True
    ElseIf e.newvalue.contains("*") = False  Then
          Dim r_tele As New System.Text.RegularExpressions.Regex("^1[01236789][0-9]{9}$")
        If r_tele.IsMatch(e.newvalue) = False Then
            msgbox("电话不正确")
            e.cancel = True
        Else
           
            For Each dr As DataRow In e.DataTable.Select("")
                For Each c As DataCol In e.DataTable.DataCols
                    If c.name Like "*手机号" Then
                        If e.newvalue = dr(c.name) Then
                            If e.DataRow("_Identify") <> dr("_Identify") OrElse e.DataCol.name <> c.name Then
                                msgbox("不允许重复")
                                e.cancel = True
                            End If
                        End If
                    End If
                Next
            Next
        End If
        If e.cancel = False Then
            systemready = False
            e.DataRow(e.DataCol.name.SubString(0,e.DataCol.name.length-4)) = e.newvalue
            e.newvalue = e.newvalue.SubString(0, 3) & "*****" & e.newvalue.SubString(8,3)
            systemready = True
        End If
    Else
        msgbox("不能这样修改")
        e.cancel = True
    End If
End If

 

 

 

怎么老出现正常手机号都入不了库呀“150”手机号段验证时出错呀？

你不是把第二位的4和5给屏蔽了吗。

修改代码啊

 

Dim r_tele As New System.Text.RegularExpressions.Regex("^1[01236789][0-9]{9}$")

 

改成

 

Dim r_tele As New System.Text.RegularExpressions.Regex("^1[0-9]{10}$")

甜老师手机号和身份证位数都是固定的，**卡号位数不是固定的怎么设置只显示前五位和后三位其他都掩码显示呢？

e.DataRow(e.DataCol.name & "掩码显示") = left(e.newvalue, 3) & "*****" & right(e.newvalue,3)