主题：[求助]求教一个比较复杂的代码设置

例：

 

在“表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)

还有   e.Style = "保险提示"  菜单有一个自定义表样式,你看一下,就是这个.