主题：清除日期框内容时出错

日期类型不能赋空值

要么把全局变量 d07改为字符型

要么判断一下，空值的时候赋值时间的最小值

vars("d07") = e.Form.Controls("DateTimePicker1").value

If va Is nothingThen
    vars("d07") = Date.MinValue
End If