以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  本人小白特来请教写一个代码 多条件检查后保存数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94998)
--  作者：abc2363360
--  发布时间：2017/1/7 13:59:00
--  本人小白特来请教写一个代码 多条件检查后保存数据

本人小白特来请教写一个代码
--------------------------------
窗口1
话务类型: DropBox1
来电号码:TextBox3
是否派单:ComboBox1
派单工单号:TextBox8
提交：Button7
-------------------------------
要求：

Button7 单击事件

校验1：
如果 TextBox3 没填写内容 则提示：请填写来电号码
如果 TextBox3 有填写内容但不是11位电话号码 则提示：请填写正确的来电号码

校验2：

如果 是否派单:ComboBox1 内容 = 是  则

    继续校验  DropBox1 内容选择是 报故障 或 催故障 则检查 派单工单号 内容是否为空
        空则提示：请填写派单工单号
        非空则检查：内容是否为 JKTX开头的18位 内容
            如果 是 则 保存 表A当前行
            如果 否 则提示：请填写正确的派单工单号
    如果 DropBox1 内容选择是 催安装 或 催迁移 则检查 派单工单号 内容是否为空
        空则提示：请填写派单工单号
        非空则检查：内容是否为 大于20位 内容
            如果 是 则 保存 表A当前行
            如果 否 则提示：请填写正确的派单工单号

如果 是否派单:ComboBox1 内容 = 否  则 保存 表A当前行
--  作者：有点蓝
--  发布时间：2017/1/7 15:20:00
--  
1、通过控件值判断

With e.Form.Controls("TextBox3")
    If .Value Is Nothing Then
        msgbox("请填写来电号码")
        return 
    End If
End With

2、如果是绑定的，通过绑定的行判断