if e.Value > "" then
dim dt As Date = e.Value
e.Value = format(e.value,"yyyy-MM-dd")
end if
看看:
http://www.foxtable.com/help/topics/0360.htm