If e.Form.controls("DateTimePicker1").Value = Nothing Then MessageBox.Show("请输入完整统计日期!","提示")End If
或者:
If e.Form.controls("DateTimePicker1").Text = "" Then MessageBox.Show("请输入完整统计日期!","提示")End If
首先,你的代码太随意,该有的空格都懒得留。
Total1 = dt.compute("sum(吨位)","([进出库分类] = '进库' or [进出库分类] = '转存') and [日期] < #" & d1 & "#")