改成这样
Dim bdrq As Date=e.Form.Controls("bangdingshijianDate").value If bdrq <> Nothing Then e.Form.Controls("youxiaoqizhiDate").value =bdrq.AddYears(1)End If
加好友 
发短信
Post By：2018/12/10 10:45:00 [显示全部帖子]
