主题：关于时间到期提醒

在同一个表里面有有八个列上都有时间，现在都想做一个时间的到时提醒，请问各路高手这个应该怎么做，在表属性的事件中的drawcell中写入以下代码

If e.Col.Name = " 图纸设计" Then
    If e.Row.IsNull("图纸设计") = False
        If e.Row("图纸设计") <= Date.Today.now.addhours(0.5) Then
            e.Style = "快到期"
            If e.Row("图纸设计") < Date.Today.now
                e.Style = "已过期"
            End If
        End If
    End If
只能对图纸设计这一列进行提醒，其他的列没响应，请问怎么解决？谢谢