以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何制作到期提醒  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85833)
--  作者：ygg8310
--  发布时间：2016/6/3 11:17:00
--  如何制作到期提醒
我想做一个到期提醒的table表，该如何做？？？
--  作者：大红袍
--  发布时间：2016/6/3 11:18:00
--  

参考

 

http://www.foxtable.com/help/topics/2471.htm

 
--  作者：ygg8310
--  发布时间：2016/6/3 11:36:00
--  
谢谢
--  作者：ygg8310
--  发布时间：2016/6/3 11:39:00
--  
那么能不能加上一个这样的功能，就像保质期“已过期”或“未过期”
--  作者：大红袍
--  发布时间：2016/6/3 11:50:00
--  

DrawCell事件

 

If e.Col.Name = "到期日期" Then
    If e.Row.IsNull("到期日期") = False
        If e.Row("到期日期") >= Date.Today AndAlso e.Row("到期日期") < Date.Today.AddDays(10) Then
            e.Text = "快到期"
        ElseIf e.Row("到期日期") < Date.Today
            e.Text = "已过期"
        Else
            e.Text = "没到期"
        End If
    End If
End If