以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于对过去时间的错误提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72541)
--  作者：fred
--  发布时间：2015/7/31 18:42:00
--  [求助]关于对过去时间的错误提示
我作一个工作计划表。其中有一个列名为“计划对象日”。我要求“计划对象日”是在当前日期之前时，作出提示“人生没有回头路，对不起。”

在表事件的DataColChanging中写入下列代码，请看一下对不对？

If e.newValue("计划对象日") < Date.Today() Then
    MessageBox.Show("人生没有回头路，对不起。")
    e.Cancel=True
End If
--  作者：大红袍
--  发布时间：2015/7/31 18:55:00
--  
If e.datacol.name = "计划对象日" then
    If e.OldValue <> Nothing AndAlso e.newValue < Date.Today() Then
        MessageBox.Show("人生没有回头路,对不起.")
        e.Cancel=True
    End If
End If