-- 作者:1234567
-- 发布时间:2024/9/2 15:12:00
-- DrawCell
If e.Col.Name = "要求完成日期" Then If e.Row.IsNull("要求完成日期") = False Then\'且该列已经输入内容 Dim d As Date = Date.Today If e.Row("要求完成日期") < d AndAlso (e.Row("进度") <> "完成" Or e.Row("进度") <> "入库") Then \'如果该列的值小于60 e.Style = "已经超期" \'那么用"不及格"样式绘制单元格 End If End If End If
要求完成日期小于今天,并且进度不是完成或者进度不是入库,就用红色字体样式标识,为什么进度是完成的也用红色字体样式了 此主题相关图片如下:1.png
|