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


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

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

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


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

以下是引用裴保民在2017/8/11 16:37:00的发言:
只是对某一张表将此快捷菜单隐藏或关闭,对其他表正常显示,应该在哪个事件写代码呢?

 

CurrentTableChanged事件写代码

 

 

If CurrentTable.Name = "表A" Then
    RibbonTabs("Common").Groups("Data").Items("Other").Items("HideColumn").visible = False
    RibbonTabs("Common").Groups("Data").Items("Other").Items("UnHideColumn").visible = False
Else
    RibbonTabs("Common").Groups("Data").Items("Other").Items("HideColumn").visible = True
    RibbonTabs("Common").Groups("Data").Items("Other").Items("UnHideColumn").visible = True   
End If

 

 类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103637&skin=0

 


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


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

修改代码啊

 

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}$")


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


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

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

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