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

 这个 ？

 

http://www.foxtable.com/webhelp/scr/2262.htm

 

If e.Col.name = "第二列" Then
    If e.text.length >= 18 Then
        e.text = e.text.SubString(0, 5) & "**********" & e.text.SubString(15,3)
    End If
End If

 换一种思路。一列显示列、一列真实列。

 

 真实列隐藏，显示列输入数据后，把数据存放到真实列。然后修改显示列的值为 abc***123

 

 不会做上传实例。

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

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

 

动态绑定不同的列 http://www.foxtable.com/webhelp/scr/1860.htm

 

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

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

1、一个字段无法做到；

 

2、参考身份证1的事件代码（datacolchanging事件），对应的修改身份证2的代码即可，很简单的。

If e.DataCol.name = "身份证1"
    If e.newvalue = "" Then
        systemready = False
        e.DataRow("身份证2") = Nothing
        systemready = True
    Else
        If e.NewValue.length >= 18 Then
            If e.NewValue.contains("*") = False Then
                e.DataRow("身份证2") = e.newvalue
            End If
            e.newvalue = e.newvalue.SubString(0, 5) & "**********" & e.newvalue.SubString(15,3)
        Else
            msgbox("身份证不正确")
        End If
    End If
End If

If e.DataCol.name = "身份证2" Then
    If e.newvalue = "" Then
        systemready = False
        e.DataRow("身份证1") = Nothing
        systemready = True
    Else
        If e.NewValue.length >= 18 Then
            e.DataRow("身份证1") = e.newvalue.SubString(0, 5) & "**********" & e.newvalue.SubString(15,3)
        Else
            msgbox("身份证不正确")
        End If
    End If
End If

请用14楼的例子，加入17楼的代码。我测试没问题。

 

请用14楼的例子。

 

出问题，自行调试 http://www.foxtable.com/webhelp/scr/1485.htm

 

不会做实例发上来。