主题：窗口日期判断

请帮我看看，一下代码问题出在哪里：
在窗口有3个文本框和一个一个日期输入框，要判断空值提示，不空往下运行。我在删除日期输入框：（计划日期）时，可以运行（会面还有很多公式）

Dim Values As String() = {"(订单号)","(生产单号)","(计划数量)","(计划日期)"}
For Each Va as string In Values
    with e.form
        if .Controls(va).value = "" then
            MessageBox.Show(va &" 资料不全,请录入!", "提示")
        end if
    end with
Next

if .Controls(va).value Is Nothing then

好快，谢谢