例：

在“表A”中某列为“日期”

我希望每次打开系统时，可自动计算当前日期与“表A”内“日期”列日期之差值，如差值小于30天，则自动弹出提醒。

经过自己的研究，查帮助文件以及狐表论坛

仅知本做法可行，需在项目事件AfterOpenProject中写入代码

无奈个人技术着实有限，只有请各位高手不吝赐教，不胜感激！

如果不行的话，这样也行：

首先用一列计算出当前日期与“日期”列内日期的差值

当差值小于多少时，则弹出提醒窗口

多谢楼上，想补充问一下

我记得以前咨询过的答复是这样的代码只能进行在输入时的判别。

比如我输入的日期是2012-01-02，今天的日期是2012-01-02，所以没达到提醒条件，不会提醒。

但是一个月后，也就是2012-02-02，系统日期也变成了2012-02-02，这时候就达到提醒条件了，请问楼上

您设置的代码，在这种情况下，会自动用标红来提醒吗？

当然。

看一下表DataColChanged和DrawCell事件。

看来还是要麻烦楼上一下了，我把表格上传

在“车辆信息”的列里

我把楼主的代码稍加修改后复制到自己的表格里，发现无效，不知道是否“样式1”的问题，或其他

之前我的表述不是很清晰

我整理了系思路，应该是“系统日期-制定日期>335”时，标红

主要用途就是当保险或者年检快到期的时候标红提示，还请楼上帮忙看看，万分感激

If e.Col.IsDate AndAlso e.Col.Name = "最近保险日期" Then
    If e.Row.IsNull(e.Col.Name) = False
        If e.Row(e.Col.Name).AddYears(1) < Date.Today() Then
                e.Style = "保险提示"
        End If
    End If
End If

If e.Col.IsDate AndAlso e.Col.Name = "最近年检日期" Then
    If e.Row.IsNull(e.Col.Name) = False
        If e.Row(e.Col.Name).AddYears(1) < Date.Today() Then
                e.Style = "年检提示"
        End If
    End If
End If

很抱歉还是需要帮助。

我试了一下，标红的前提是系统日期与指定日期相差一年，是否可设置为相差11个月？毕竟提醒的话，如果到期才提醒就没意义了，如可提前一个月提醒会好很多。

还有   e.Style = "保险提示"

这一段代码的意思应该是如果满足上述条件，则该单元格以“保险提示”的样式体现吧？

请问“保险提示”这个样式在何处设置与保存？我希望能够掌握更加深入，以便举一反三，多谢！

AddMonths

给日期值加上指定的月数。

语法：

AddMonths(Value)

Value: 要加上的月数，可以是负数也可以是正数。

例如：