Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]*号表示数字


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

主题：[求助]*号表示数字
美女呀，离线，留言给我吧！
OKK
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00 		[求助]*号表示数字  发帖心情 Post By：2017/3/21 17:10:00 [只看该作者]

把表A第一列中，第4567个字符变为*符号
例如：13710809456
变为：137****9456

请问代码怎么写？图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/21 18:13:00 [只看该作者]


 回到顶部
美女呀，离线，留言给我吧！
OKK
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00 		  发帖心情 Post By：2017/3/21 18:41:00 [只看该作者]

这个挺好，不过还是没有解决我的问题哦。。。

我需要中间几个字符隐藏，后面几个字符显示，，因为不想公开电话号码，但又需要显示后几位

例如：13710809456
变为：137****9456
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2017/3/21 18:46:00 [只看该作者]

那是您自己的问题，这就是解决您的问题的方法!

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2017/3/21 18:47:00 [只看该作者]

一列存储真实的号码，另外一列存储变更显示号码。
Dim s As String = "13710809456"
Dim s1 As String = s.SubString(0,3)
msgbox(s1)
Dim s2 As String = s.SubString(7)
msgbox(s2)
Dim s3 As String
s3 = s1 & "****" & s2
msgbox(s3)
[此贴子已经被作者于2017/3/21 18:49:48编辑过]
 回到顶部
美女呀，离线，留言给我吧！
OKK
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00 		  发帖心情 Post By：2017/3/21 19:10:00 [只看该作者]

感谢HUHU，问题解决，谢了图片点击可在新窗口打开查看图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2017/6/4 22:11:00 [只看该作者]

结合二楼，不用增加列，DrawCell事件代码：
if e.Col.Name = "手机号码" Then 
   dim s as String = e.row("手机号码")
   if len(s) = 11
      s = s.SubString(0,3) & "****" & s.SubString(7) 
      e.Text = s
   end if 
End If

这样不影响您调用手机号码列的值，显示的带星号，实际值没有星号！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询