主题：格式化账号型字符

我那个35楼的代码也还可以精简一下：

If e.Col.Name = "账号"
    For i As Integer = 4 To (len(e.Text)+len(e.Text)\4) Step 5
        e.Text = e.Text.Insert(i," ")
    Next
End If