以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关闭窗口延迟  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82689)

--  作者:yupeng
--  发布时间:2016/3/22 21:44:00
--  [求助]关闭窗口延迟

在订单编辑窗口  点击取消按钮时  关闭窗口会延迟2左右关闭  代码如下

 

e.Form.Close   \'-----关闭窗口-----
Tables("生产进度表").Current.DataRow.Load(False)
Tables("生产进度表.下单明细").DataTable.Load(False)
Tables("生产进度表.裁数明细").DataTable.Load(False)

我想把撤销代码放在 AfterClose事件执行

请问要怎么写判断  判断点击取消按钮才能执行代码  但是不能影响OpenQQ独占式编辑  谢谢师傅


--  作者:大红袍
--  发布时间:2016/3/22 22:29:00
--  

弄一个全局变量

 

AfterClose

 

If vars("取消") = True Then

Tables("生产进度表").Current.DataRow.Load(False)
Tables("生产进度表.下单明细").DataTable.Load(False)
Tables("生产进度表.裁数明细").DataTable.Load(False)

End If

 

AfterLoad

 

vars("取消") = False

 

取消按钮click

 

vars("取消") = True

e.Form.Close


--  作者:yupeng
--  发布时间:2016/3/22 22:48:00
--  

大师还是不太明白   哪个是变量名称和类型和初始值

 

没有弄过全局变量  请帮我分一下  谢谢您


--  作者:大红袍
--  发布时间:2016/3/22 22:52:00
--  

AfterLoad事件定义

 

 vars("取消") = False

 

http://www.foxtable.com/help/topics/0325.htm