If e.row("日期") = Date.Today Then
e.Style = "样式1"
End If
http://www.foxtable.com/help/topics/0656.htm