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

 

测试没问题，请认认真真测试。所有相同的代码，都要改成对应的。看 59楼。

 

 

 

我的所有代码都是在“DataColChanging”事件中写的，改了后还是不行的

 

If e.DataCol.name Like "*手机号" Then
     Dim r_tele As New System.Text.RegularExpressions.Regex("^1[01236789]{10}$")

    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

我测试，没问题，请认认真真看事件代码修改。

知道什么原因了，我是在掩码输入的数据，在正常显示列输入没问题

怎样避免在掩码列输入数据后不弹出这个错误框呢？

 

老师问题已经解决

 

同样测试没问题。你datacolchanging事件，有两个地方要替换成  Dim r_tele As New System.Text.RegularExpressions.Regex("^1[0123456789]{10}$")

怎么其他很多号码也输不进去了呢？比如130xxxxxxxxx、173xxxxxxxxx、188xxxxxxxxxx等等

改为

老师你看看这段代码哪错了：

我在“修改数据窗体”的BeforeClose事件中写了如下代码：

Dim khm  As WinForm.TextBox =e.Form.Controls("kehuxingmingTextBox")
        Dim sfzh As WinForm.TextBox =e.Form.Controls("shenfenzhengTextBox")
        Dim count As Integer = DataTables("表A").compute("count(_Identify)", "身份证1= '" & sfzh.Value & "'")
         If e.Form.Controls("kehuxingmingTextBox").Value = Nothing Or  sfzh.Value <> Nothing Or ValidPIN( sfzh .Value )=False  Or count > 1  Then
            msgbox("数据输入有误!保存数据失败.")       
            DataTables("表A").RejectChanges
            DataTables("表A").save
            Return
        Else
            Tables("表A").Current("姓名")=khm.text
            DataTables.Save
            Tables("表A").position = 0
            DataTables("表A").save
            Tables("表A").Filter =""
            DataTables("表A").Load      
        End If

 

运行后出现如下错误：

（1）如果修改“身份证号码”后在没有保存的情况下，关闭窗体时，弹出如下错误：

 

 

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

（2）如果修改“手机号”后在没有保存的情况下，关闭窗体时，弹出如下错误：

 

 

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

 

 

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

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

Dim khm  As WinForm.TextBox = e.Form.Controls("kehuxingmingTextBox")
Dim sfzh As String = Tables("表A").current("身份证2")
Dim count As Integer = DataTables("表A").compute("count(_Identify)", "身份证2= '" & sfzh & "'")
If e.Form.Controls("kehuxingmingTextBox").Value = Nothing OrElse sfzh = Nothing OrElse ValidPIN( sfzh)=False  OrElse count > 1  Then
    msgbox("数据输入有误!保存数据失败.")
    DataTables("表A").RejectChanges
    e.cancel = True
    'DataTables("表A").save
    'Return
Else
    'Tables("表A").Current("姓名")=khm.text
    'DataTables.Save
    'Tables("表A").position = 0
    'DataTables("表A").save
    'Tables("表A").Filter =""
    'DataTables("表A").Load
End If

怎样将表的“隐藏列”和“取消隐藏列”快捷键去掉后不可用呢？