if e.Row("订单状态")="未审核" orelse e.Row("订单状态")="已入库" orelse ...补上其它状态... thenreturn
end if
If e.Col.Name = "交货日期" AndAlso e.Row.Isnull("交货日期") = False Then
If e.Row("交货日期") < Date.today Then
e.Style = "a"
ElseIf e.Row("交货日期") < Date.today.adddays(7) Then
e.style = "b"
End If
End If