Dim str18 As Datestr18 = forms("教学设计评价").Controls("DateTimePicker1").value
If str18 Is Nothing MessageBox.Show("今天的日子不好么?怎么不填写上呢!","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)ReturnEnd If