以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口日期判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5139)

--  作者:wqc360
--  发布时间:2009/11/25 17:55:00
--  窗口日期判断
请帮我看看,一下代码问题出在哪里:
在窗口有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
--  作者:狐狸爸爸
--  发布时间:2009/11/25 17:58:00
--  
if .Controls(va).value Is Nothing then

--  作者:wqc360
--  发布时间:2009/11/25 18:04:00
--  
好快,谢谢