27楼已经满足绝大多数人的使用,但字符串长度过长的时候,会导致最后一段字符串超过指定个数不能分割,再修改一下,确保字符型列255个字符串都能完全分割,个中缘由望大家来思考,不为别的,只求多一种思路和技巧:
If e.Col.Name = "账号" Dim s As String = "," & e.Text For i As Integer = 1 To (len(s)\5+(len(s)\5)\5+((len(s)\5)\5)\5) s = s.Insert(i*5," ") Next e.Text = s.Replace(",","")End If
原理和27楼一样