主题：[求助]日期限制更改

表中有一列日期数据，我现在想把这个日期做一个更改限制，如果当月过了20号，就不让把原来日期是上个月的改到这个月来，这个该如何做，放到哪个表事件中

比如，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