终止 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有3545人关注过本帖树形打印复制链接主题：终止

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1942 积分：14943 威望：0 精华：0 注册：2016/4/28 9:58:00

终止

Post By：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,不得行，请问如何行？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

主题：终止