主题：关于时间到期提醒

在同一个表里面有有八个列上都有时间，现在都想做一个时间的到时提醒，请问各路高手这个应该怎么做，在表属性的事件中的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
只能对图纸设计这一列进行提醒，其他的列没响应，请问怎么解决？谢谢

谢谢领导，问题已解决，不过这个代码多了个na

这个代码才是完全正确的，已验证过了,谢谢狐狸爸爸的指导~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`

Select Case e.Col.name
    Case "图纸设计","日期列2","日期列3","日期列4"
        If e.Row.IsNull(e.Col.name) = False
            If e.Row(e.Col.name) <= Date.Today.now.addDays(0.5) Then
                e.Style = "快到期"
                If e.Row(e.Col.name) < Date.Today.now
                    e.Style = "已过期"
                End If
            End If
        End If
End Select