Foxtable(狐表)用户栏目专家坐堂 → 字段中某些字符以掩码显示


  共有8190人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/24 15:35:00 [显示全部帖子]

以下是引用peibaomin在2017/7/24 15:10:00的发言:

是不是因为“DataColChanged”里的身份证号码验证合法性的问题呀?如果是怎么解决呀?

 

目前文本框内显示的只要是掩码就会弹出上面的错误对话框,如果是正常显示的保存时是正常的

[此贴子已经被作者于2017/7/24 15:31:11编辑过]

 

DataColChanged身份证验证合法性,应该验证的是【身份证2】列,不用验证【身份证1】列。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/24 16:19:00 [显示全部帖子]

以下是引用裴保民在2017/7/24 16:17:00的发言:
那可能验证错了回去我试试文本框应该绑定哪个字段都可以吧?

 

请认认真真看14楼例子。你要显示哪个,就绑定哪一个。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/25 9:34:00 [显示全部帖子]

Dim sfzh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt = Tables("表A").current("身份证2")
If txt <> Nothing Then
    If ValidPIN(txt)=False Then
        msgbox("身份证号输入不合法!请验证.")
        sfzh .Select
        Return
    End If
End If
DataTables.Save

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/26 9:16:00 [显示全部帖子]

以下是引用peibaomin在2017/7/26 0:41:00的发言:

掩码显示的列客户如果复制该列的数据到其他地方比如文本框中就可以正常显示完整数据的,怎么解决这个问题呢?

 

[此贴子已经被作者于2017/7/26 1:53:55编辑过]

 

1、你复制后,不会正常显示数据的啊。如果你要正常显示,请切换成非掩码的。

 

2、

 

For Each dr As DataRow In DataTables("表A").DataRows
    dr("身份证1") = dr("身份证2")
Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/26 9:42:00 [显示全部帖子]

AfterOpenProject事件。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/26 11:54:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/26 15:07:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:身份证掩码显示 (2)2.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/26 16:03:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:身份证掩码显示 (2)2.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/26 22:01:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:身份证掩码显示 (2)2 (1).table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/26 22:32:00 [显示全部帖子]

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

 回到顶部
总数 34 上一页 1 2 3 4 下一页