以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  IF代码执行问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84113)

--  作者：benwong2013 --  发布时间：2016/4/23 10:48:00 --  IF代码执行问题 With e.Form.Controls("订单编号")     Dim txt As String = .Value     If txt = "" OrElse txt.Length <> 13  Then         Messagebox.Show("必须输入13位数的编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)         Return     Else         Dim kjmc() As String \'控件名称         Dim kjmcjh As String = "收样日期,预计完成日期,订单编号" \'控件名称集合         kjmc = kjmcjh.Split(",")         For i As Integer=0 To kjmc.Length-1             If e.Form.Controls(kjmc(i)).value Is Nothing Then                 MessageBox.Show(kjmc(i) & "不能为空,请检查")                 e.Form.Controls(kjmc(i)).Select                 Return             End If         Next         DataTables("T_Order").save         MessageBox.Show("保存成功")     End If End With 点击按键 若订单编号字数不够13位的时候提醒并返回当前作业，若满足则进一步检查其它控件是否为空，若空返回，若不空则保存； 但这个是否会判定字数是否足够，但若不够13位还是会执行保存，请问哪里错了？

--  作者：Hyphen --  发布时间：2016/4/23 10:57:00 --   If Not(txt > "") OrElse txt.Length < 13  Then