Select Case e.Col.Name
Case "合同结束日期"
If e.Row.IsNull("合同结束时间") = false
If e.Row("合同结束时间") < Date.Today Then
e.Style = "已经到期"
ElseIf e.Row("合同结束时间") < Date.Today.AddDays(10) Then
e.Style = "即将到期"
End If
End Select
没有反应,不变色,我的合同结束时间是日期型的