If e.Form.controls("DateTimePicker1").Value = Nothing Then MessageBox.Show("请输入完整统计日期!","提示")End If
或者:
If e.Form.controls("DateTimePicker1").Text = "" Then MessageBox.Show("请输入完整统计日期!","提示")End If