请教单元格变色。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

drawcell代码

If e.Col.Name = "卸箱日期" Then

If e.Row.IsNull("卸箱日期") = False

If e.Row("卸箱日期").AddDays(14) < Date.Today Then

e.Style = "超期1"

ElseIf e.Row("卸箱日期").AddDays(21) < Date.Today Then

e.Style = "超期2"

ElseIf e.Row("卸箱日期").AddDays(28) < Date.Today Then

e.Style = "超期3"

End If

这代码只能显示第一个样式的颜色，下面2个显示不出来。

另外，如果我需要在另外一个单元格“送货日期”执行颜色变化，代码如何修改？

主题：请教单元格变色。