datacolchanging事件
If e.DataCol.Name = "日期" AndAlso e.NewValue <> Nothing Then
If e.NewValue < Date.Today.AddDays(-3) Then
e.Cancel = True
End If