标题：[求助]求教一个比较复杂的代码设置
例：
在“表A”中某列为“日期”
我希望每次打开系统时，可自动计算当前日期与“表A”内“日期”列日期之差值，如差值小于30天，则自动弹出提醒。
经过自己的研究，查帮助文件以及狐表论坛
仅知本做法可行，需在项目事件AfterOpenProject中写入代码
无奈个人技术着实有限，只有请各位高手不吝赐教，不胜感激！
如果不行的话，这样也行：
首先用一列计算出当前日期与“日期”列内日期的差值
当差值小于多少时，则弹出提醒窗口
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
多谢楼上，想补充问一下
我记得以前咨询过的答复是这样的代码只能进行在输入时的判别。
比如我输入的日期是2012-01-02，今天的日期是2012-01-02，所以没达到提醒条件，不会提醒。
但是一个月后，也就是2012-02-02，系统日期也变成了2012-02-02，这时候就达到提醒条件了，请问楼上
您设置的代码，在这种情况下，会自动用标红来提醒吗？
当然。
看一下表DataColChanged和DrawCell事件。
看来还是要麻烦楼上一下了，我把表格上传
在“车辆信息”的列里
我把楼主的代码稍加修改后复制到自己的表格里，发现无效，不知道是否“样式1”的问题，或其他
之前我的表述不是很清晰
我整理了系思路，应该是“系统日期-制定日期>335”时，标红
主要用途就是当保险或者年检快到期的时候标红提示，还请楼上帮忙看看，万分感激
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
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: 要加上的月数，可以是负数也可以是正数。
例如：
Dim
d As Date = #2/28/2008#Dim d1 As Date = d.AddMonths(10) '加上10个月
Dim d2 As Date = d.AddMonths(-10) '减去10个月
Output.Show("10个月后的日期：" & d1)
Output.Show("10个月前的日期：" & d2)