Foxtable(狐表)用户栏目专家坐堂 → 如何格式化显示银行账号


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

主题:如何格式化显示银行账号

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


加好友 发短信
等级:婴狐 帖子:32 积分:499 威望:0 精华:0 注册:2012/3/17 20:33:00
如何格式化显示银行账号  发帖心情 Post By:2017/8/28 9:34:00 [只看该作者]

请问如何将狐表内输入的  银行账号  格式化后  显示为4各数字一组的 显示(如:1234-4567-5590-9900-642),如何设置代码?
图片点击可在新窗口打开查看此主题相关图片如下:银行账号.png
图片点击可在新窗口打开查看

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


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

Drawcell事件

 

If e.Col.name = "第一列" Then
    Dim p As String = ".{4}(?!$)"
    Dim rgx = New System.Text.RegularExpressions.Regex(p,System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    e.text = rgx.Replace(e.text, "$0 ")
End If


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


加好友 发短信
等级:婴狐 帖子:32 积分:499 威望:0 精华:0 注册:2012/3/17 20:33:00
回复:(有点甜)Drawcell事件 If e.Col.nam...  发帖心情 Post By:2017/8/28 9:54:00 [只看该作者]

请加我QQ37947625,运行不了 e.这段执行不过去。。。。。我给你截图吧

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


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

以下是引用37947625在2017/8/28 9:54:00的发言:
请加我QQ37947625,运行不了 e.这段执行不过去。。。。。我给你截图吧

 

关闭项目,重新打开项目,把代码拷贝到drawcell事件去。


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


加好友 发短信
等级:婴狐 帖子:32 积分:499 威望:0 精华:0 注册:2012/3/17 20:33:00
  发帖心情 Post By:2017/8/28 11:02:00 [只看该作者]

不行,没有任何变化,这还传不了图!

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


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

以下是引用37947625在2017/8/28 11:02:00的发言:
不行,没有任何变化,这还传不了图!

 

你说的是表格没变化,还是窗口控件绑定的数据没变化?

 

列名要改成你自己的列名

 

If e.Col.name = "第一列" Then
    Dim p As String = ".{4}(?!$)"
    Dim rgx = New System.Text.RegularExpressions.Regex(p,System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    e.text = rgx.Replace(e.text, "$0 ")
End If


 回到顶部