以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求解判断日期不能空的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127721)
--  作者：fytea
--  发布时间：2018/11/20 18:16:00
--  求解判断日期不能空的问题

Dim str18 As Date

str18 = forms("教学设计评价").Controls("DateTimePicker1").value

If str18 Is Nothing
    MessageBox.Show("今天的日子不好么?怎么不填写上呢!","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
Return
End If
--  作者：有点甜
--  发布时间：2018/11/20 18:48:00
--  

改成

 

If str18 = Nothing Then