e.form.Controls("DateTimePicker1").Value =Date.Today()
改成
e.form.Controls("DateTimePicker1").Value =Date.Today.AddDays(-1)
http://www.foxtable.com/webhelp/scr/1337.htm