设置这个控件的ValidateEdit事件:
if e.Sender.Value IsNot Nothing Then
Dim dt As Date = e.Sender.Value
dim r As Row =Tables("xxx").Current
r("年") = dt.Year
r("月") = dt.Month
r("日") = dt.Day
End if
加好友 
发短信
Post By：2012/7/25 8:24:00 [显示全部帖子]
