以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助关于日列问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76009)
--  作者：xianzheng
--  发布时间：2015/10/19 21:03:00
--  求助关于日列问题
有两个日期列，A列和B列，要求B列输入的日期必须大于A列，并且B列日期不能大于当天日期，如何写代码?
--  作者：大红袍
--  发布时间：2015/10/19 21:09:00
--  

DataColChanging事件

 

If e.DataCol.Name = "B" AndAlso e.NewValue <> Nothing Then
    If e.NewValue < e.DataRow("A") Then
        msgbox("不能小于A")
        e.cancel = True
    ElseIf e.newvalue > Date.today Then
        msgbox("不能大于今天")
        e.cancel = True
    End If   
End If