以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 终止 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=176540) |
-- 作者:刘林 -- 发布时间:2022/4/17 9:16:00 -- 终止 dr = DataTables("单位用户").SQ LFind("单位 = \'" & UserName & "\'and 部门= \'" & ssbm & "\' and [是否可用] = 1") If dr Is Nothing Then Messagebox.show("此用户不存在或已暂停使用!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return Else yfjl = dr("_Identify") If dr.Isnull("身份证号") Or dr.Isnull("电话") Forms("帐户信息").open End If 。。。。 。。。。 请问老师,如果跳出补填信息不正确或不完善就停止后面进程,在 Forms("帐户信息").用户的e.form.close,return,不得行,请问如何行? |
-- 作者:有点蓝 -- 发布时间:2022/4/17 20:23:00 -- "帐户信息"是模式窗口? Else yfjl = dr("_Identify") If dr.Isnull("身份证号") Or dr.Isnull("电话") Forms("帐户信息").open if vars("取消") = true then return End If Forms("帐户信息")窗口按钮 vars("取消") = true e.form.close
|