Validating 事件
If e.Sender.Value < Date.Today.AddDays(-1) OrElse e.Sender.Value > Date.Today Then
messagebox.show("不能选择大于今天和小于昨天的日期")
e.Cancel=True
End If
加好友 
发短信
Post By：2014/9/15 15:34:00 [显示全部帖子]
