以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  终止  (http://foxtable.net/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