按照2楼的例子改了一下，符合输入任意长度字符串均可实现按规律分割的要求：
If e.Col.Name = "账号"
Dim s As String = "," & e.Text
For i As Integer = 1 To (len(s)\5+(len(s)\5)\5)
s = s.Insert(i*5," ")
Next
e.Text = s.Replace(",","")
End If
1、循环次数减少N倍(N= 分割后的每小段字符串个数)；
2、调整数字5，可分割为个人所需的理想长度，该公式一样可为通用；
3、输入任意长度字符串均可分割。
加好友 
发短信
Post By：2011/5/10 3:30:00 [只看该作者]
