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


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

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

帅哥,在线噢!
裴保民
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:12690 威望:0 精华:0 注册:2017/4/3 15:01:00
字段中某些字符以掩码显示  发帖心情 Post By:2017/7/17 8:56:00 [只看该作者]

怎样设置字段批量将中间某些字符用掩码给客户显示?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/17 9:22:00 [只看该作者]


 回到顶部
帅哥,在线噢!
裴保民
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:12690 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/7/17 9:38:00 [只看该作者]

如果要将中间一部分用掩码显示其他用正常方式显示可以吗?如身份证号正常显示前五位和后三位,中间的区别以掩码显示

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/17 9:41:00 [只看该作者]

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

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/7/18 2:59:00 [只看该作者]

如果根据窗体上单选框的状态来执行以什么方式来显示身份证号码,是不是得在窗体的单选框中编写代码?如何实现这个功能?

 

还有一个问题就是我本来是用掩码显示的,可是我双击单元格是就变为全部显示了

[此贴子已经被作者于2017/7/18 3:02:32编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/18 8:41:00 [只看该作者]

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

 

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

 

 不会做上传实例。


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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/7/18 20:57:00 [只看该作者]

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

怎么在窗体单击是否掩码显示按钮控制不了呢?


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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/7/18 21:07:00 [只看该作者]

drawcell

If sfzym=True  Then
    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
End If

按钮

Dim sfxs As WinForm.CheckBox=e.Form.Controls("shenfenzhengCheckBox")
If sfxs .Checked Then
    sfzym=False
Else
    sfzym=True
End If
e.Form.Controls("Table1").Table.Refresh


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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/7/23 18:04:00 [只看该作者]

双击身份证单元格时就会就会正常显示了,怎么设置成双击时也不会改变显示方式呢?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/23 18:18:00 [只看该作者]

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


 回到顶部
总数 88 1 2 3 4 5 6 7 8 9 下一页