以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于时间到期提醒  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48175)
--  作者：caiankie
--  发布时间：2014/3/24 15:22:00
--  关于时间到期提醒

在同一个表里面有有八个列上都有时间，现在都想做一个时间的到时提醒，请问各路高手这个应该怎么做，在表属性的事件中的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
只能对图纸设计这一列进行提醒，其他的列没响应，请问怎么解决？谢谢
--  作者：狐狸爸爸
--  发布时间：2014/3/24 15:33:00
--  

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

 
--  作者：caiankie
--  发布时间：2014/3/25 11:50:00
--  

谢谢领导，问题已解决，不过这个代码多了个na
--  作者：黄训良
--  发布时间：2014/3/25 12:23:00
--  
学习了
--  作者：caiankie
--  发布时间：2014/3/25 17:04:00
--  

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

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