方法一:drawcell事件
If e.Col.Name = "到期" Then
If e.row("日期") <= Date.Today.AddDays(-2) Then
e.Text = "已经到期"
End If
方法二:
http://www.foxtable.com/webhelp/scr/2471.htm