If e.col.Name = "到期日期" Then If e.Row.IsNull("到期日期") = False If e.Row("到期日期") < Date.Today.AddDays(10) Then If e.Row("已处理") = False Then e.Style = "到期" End If End If End IfEnd If