- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何格式化显示银行账号 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105855)
-- 发布时间：2017/8/28 9:34:00
-- 如何格式化显示银行账号
请问如何将狐表内输入的 银行账号 格式化后 显示为4各数字一组的 显示（如：1234-4567-5590-9900-642），如何设置代码？
此主题相关图片如下：银行账号.png
-- 发布时间：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
-- 发布时间：2017/8/28 9:54:00
-- 回复：（有点甜）Drawcell事件 If e.Col.nam...
请加我QQ37947625，运行不了 e.这段执行不过去。。。。。我给你截图吧
-- 发布时间：2017/8/28 9:56:00
--
以下是引用37947625在2017/8/28 9:54:00的发言：
请加我QQ37947625，运行不了 e.这段执行不过去。。。。。我给你截图吧
请加我QQ37947625，运行不了 e.这段执行不过去。。。。。我给你截图吧
关闭项目，重新打开项目，把代码拷贝到drawcell事件去。
-- 发布时间：2017/8/28 11:02:00
--
不行，没有任何变化，这还传不了图！
-- 发布时间：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