- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 格式化账号型字符 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9770)
-- 发布时间：2011/5/7 8:08:00
-- 格式化账号型字符
想把16位账号类的数字字符没4位间隔开，方便浏览及核对，要怎么做，用自定义函数吗？
如：3232677728882888要在表格里显示成3232 6777 2888 2888
-- 发布时间：2011/5/7 8:42:00
--
我做了个例子，系统检测输入的账号是否是16位，如果是的，就每4位隔开显示：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目13.table |
-- 发布时间：2011/5/7 9:46:00
--
如果事先不能确定每个账号的长度，代码如何写？
-- 发布时间：2011/5/7 10:15:00
--
留给你做练习，先自己写一下看看
-- 发布时间：2011/5/7 10:21:00
--
-- 发布时间：2011/5/7 11:23:00
--
If e.Col.Name = "第一列"
Dim Names() As Integer
Dim s As String=e.text
Dim m As Integer=s.length \\ 4
Select Case m
Case 1
e.text=s.substring(0,4) & " " & s.substring(4,s.length Mod 4)
Case 2
e.text=s.substring(0,4) & " " & s.substring(4,4) & " " & s.substring(4,s.length Mod 4)
Case 3
e.text=s.substring(0,4) & " " & s.substring(4,4) & " " & s.substring(8,4) & " " & s.substring(4,s.length Mod 4)
Case 4
Case 5
Case 6
End Select
End If
-- 发布时间：2011/5/7 11:24:00
--
有没有人可以简化一下这个代码？
-- 发布时间：2011/5/7 12:51:00
--
以下是引用狐狸爸爸在2011-5-7 10:15:00的发言：
留给你做练习，先自己写一下看看
留给你做练习，先自己写一下看看
作业完成，是否可以得分?
-- 发布时间：2011/5/7 12:58:00
--
不起作用
-- 发布时间：2011/5/7 13:09:00
--
哪里不起作用？