以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于日期框中的日期表示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128537)
--  作者：裴保民
--  发布时间：2018/12/10 9:25:00
--  关于日期框中的日期表示
窗体中DateTimePicker控件如果是空值怎么表示呀？


Dim bdrq As Date=e.Form.Controls("bangdingshijianDate").value 
Dim yxrq As Date=e.Form.Controls("youxiaoqizhiDate").value 
If bdrq.Date<> "" Then
   yxrq.Date =bdrq.Date.Today.AddYears(1)
End If

运行时出错
--  作者：有点甜
--  发布时间：2018/12/10 10:45:00
--  

改成这样

 

Dim bdrq As Date=e.Form.Controls("bangdingshijianDate").value
If bdrq <> Nothing Then
   e.Form.Controls("youxiaoqizhiDate").value =bdrq.AddYears(1)
End If