上面是天数，日期的话，改一下：
Dim dt As Date = Date.Todaydt = new Date(dt.Year,dt.Month,1)dt = dt.AddMonths(-1)e.Form.Controls("Label控件名称") = Format(dt,"yyyy-MM-dd")
加好友 
发短信
Post By：2013/11/14 16:34:00 [显示全部帖子]
