以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 关于日期提醒  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52091)
--  作者：netfox168
--  发布时间：2014/6/9 9:43:00
--  [求助] 关于日期提醒
一日期列 “年审截止日”，我想在另一列做一个提醒，比如今天距“截止日”大于60日时，显示“未到期”，今天距“截止日”小于等于60日时，显示“即将到期”，当过期时显示“已过期”。我想用表达式列来处理，但不知如何计算 “今天” 与 “某天” 的差距。如果用代码又如何处理？
--  作者：Bin
--  发布时间：2014/6/9 9:44:00
--  
帮助有例子 http://www.foxtable.com/help/topics/2471.htm
--  作者：netfox168
--  发布时间：2014/6/9 9:46:00
--  
看过这个例子，这个是在本身的单元格里修改，我是想在另一列做提示，意在做目录树，可以将各种情况一览无遗。

不过我再试试看 ...
[此贴子已经被作者于2014-6-9 9:47:51编辑过]
--  作者：Bin
--  发布时间：2014/6/9 9:48:00
--  
原理是一样的,方法也是一样的.   

例子教会你1+2   2+1也要自己学会变通才可以的.

实在不会,可以上例子让工程师帮你完成.
--  作者：有点甜
--  发布时间：2014/6/9 9:52:00
--  

  编写AfterOpenProject事件

 

For Each dr As DataRow In DataTables("表A").DataRows
   
    If dr.IsNull("年审截止日") = False Then
        Dim sp As TimeSpan = dr("年审截止日") - Date.Today
        If sp.TotalDays > 60 Then
            dr("提示") = "未到期"
        Else If sp.TotalDays >= 0 Then
            dr("提示") = "即将到期"
        Else If sp.TotalDays < 0 Then
            dr("提示") = "已到期"
        End If
    Else
        dr("提示") = Nothing
    End If
   
Next

[此贴子已经被作者于2014-6-9 9:53:30编辑过]
--  作者：netfox168
--  发布时间：2014/6/9 17:37:00
--  
已搞掂，谢谢！