主题：关于时间到期提醒

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