'',审图工作日,变色 If e.Col.name = "审图工作日" Then If e.Row.IsNull("审图工作日") = False AndAlso 5< e.Row("审图工作日") < 13 AndAlso e.Row.IsNull("出图工作日") = False Then Dim q As Double= e.Row("审图工作日") / e.Row("出图工作日") If q >= 1 Then e.Style = "特急" End If If 0.75 < q AndAlso q < 1 Then e.Style = "急" End If If 0.55 < q AndAlso q < 0.75 Then e.Style = "标记色1" End If End If End If