- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 弹窗后卡壳，程序假死问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137077)
-- 发布时间：2019/6/27 17:00:00
-- 弹窗后卡壳，程序假死问题
程序语句如下：
Forms("新增客户").Close()
Forms("新建项目-内嵌弹窗").Open()
具体情况为，在“新增客户”窗口中，建立了按钮，点击后要求的效果为，关闭当前窗口“新增客户”，然后弹出“新建项目-内嵌弹窗”，现在的问题是，程序可以执行，但是要求先关闭的窗口不能实际关闭，新窗口可以弹出，出现程序假死。
请问这里距程序语言紧挨着执行又问问题，应该如何解决?
此主题相关图片如下：微信图片_20190627165844.png
-- 发布时间：2019/6/27 17:20:00
--
将新建项目变为模式口就可以了。原窗口也不要关闭才对。
[此贴子已经被作者于2019/6/27 17:20:08编辑过]
-- 发布时间：2019/6/27 18:13:00
--
e.Form.BaseForm.Opacity = 0
e.form.close
Forms("新建项目-内嵌弹窗").Open()
-- 发布时间：2019/6/27 19:17:00
-- 弹窗后卡壳，程序假死问题
Tables("客户").Current.Save()
syscmd.Row.Lock()
Dim r As Row = Tables("客户").current
If r Is Nothing OrElse r("客户编号") = Nothing OrElse r("联系人") = Nothing OrElse r("联系电话") = Nothing Then
e.Cancel = True
MessageBox.Show("请完善客户信息,客户编号/联系人/联系电话为必填项,然后再新建项目!")
Else
Forms("新增客户").Close()
Forms("新建项目-内嵌弹窗").Open()
End If
_____________
以上是按钮的全部代码，您给我的代码应该怎么加？
以上问题已经解决
删掉 Forms("新增客户").Close()
[此贴子已经被作者于2019/6/27 19:23:56编辑过]