请专家帮忙看一下这段代码该如何修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

对于一个表我之前为字段“到货日期”自定义了两种样式，“近期”和“逾期”，分别用黄色和红色标识，代码如下：

If e.Col.Name = "到货日期" Then

If e.Row.IsNull("到货日期") = False Then

If e.Row("到货日期") < = Date.Today Then

e.Style = "逾期"

Else

If e.Row("到货日期") < Date.Today.AddDays(7) Then

e.Style = "近期"

End If

但如果想加一种样式进去，即：逻辑列“是否核销”如果为“TRUE”，到货日期的样式为“已核销”，用蓝色标识，样式已经定义好，请问专家如何修改上述代码？谢谢

主题：请专家帮忙看一下这段代码该如何修改