楼主还要加强学习啊,否则用着开发版太浪费了
If e.Col.Name = "到期日期" Then If e.Row.IsNull("到期日期") = False Then If e.Row("已处理") = False Then If e.Row("到期日期") < Date.Today.AddDays(10) Then e.Style = "到期" End If End If End IfEnd If