以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]日期限制更改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116618)
--  作者：kaiyu
--  发布时间：2018/3/28 11:39:00
--  [求助]日期限制更改

表中有一列日期数据，我现在想把这个日期做一个更改限制，如果当月过了20号，就不让把原来日期是上个月的改到这个月来，这个该如何做，放到哪个表事件中
--  作者：有点甜
--  发布时间：2018/3/28 12:41:00
--  

比如，validateEdit事件，写代码

 

If e.Col.Name = "日期" AndAlso e.Row.IsNull(e.Col.name) = False Then
    If e.text = Nothing Then
        e.cancel = True
    Else
        If Date.Today.day > 20 Then
            Dim d As Date = e.Row(e.Col.name)
            If format(d, "yyyyMM") < format(Date.today, "yyyyMM") Then
                e.cancel = True
            End If
        End If
    End If
End If