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