If e.Col.Name = "姓名" Then
If e.Text = "" OrElse e.Text.Length = 1 OrElse e.Text >= 4 Then
e.Style = "样式一"
End If
http://www.foxtable.com/webhelp/scr/0656.htm