以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关闭窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53725)
--  作者：kao_go
--  发布时间：2014/7/14 14:48:00
--  关闭窗口
用e.Form.Close  \'关闭当前窗口，会连整个狐表程序都关闭了？？？
--  作者：Bin
--  发布时间：2014/7/14 14:51:00
--  
不会,除非你窗口关闭事件有关闭整个项目的代码,你检查一下看看.
--  作者：kao_go
--  发布时间：2014/7/14 14:55:00
--  

这是【取消】按钮的click的事件

Dim ckmc As String=e.Form.Name
Dim zuo1 As Table=Tables(ckmc+"_zuo1")
Dim you1 As Table=Tables(ckmc+"_you1")

zuo1.DataTable.RejectChanges()  \'取消左侧的修改
you1.DataTable.RejectChanges()  \'取消右侧的修改
e.Form.Close  \'关闭当前窗口

 

这是窗口beforeclose事件的代码

e.Form.Controls("quxiao").PerformClick()

 
--  作者：Bin
--  发布时间：2014/7/14 14:57:00
--  
死循环了

当然就关闭项目了

点击关闭按钮-窗口关闭-触发beforeclose-点击关闭按钮-窗口关闭-触发beforeclose事件- 死循环
--  作者：kao_go
--  发布时间：2014/7/14 15:00:00
--  

哦，那我e.Form.Controls("quxiao").PerformClick() 应该放在afterclose对吗？
--  作者：Bin
--  发布时间：2014/7/14 15:03:00
--  
你要做什么操作,你直接在关闭事件操作

为什么非要在关闭事件再关闭一次呢?  你觉得合理吗?
--  作者：有点甜
--  发布时间：2014/7/14 15:05:00
--  

这是【取消】按钮的click的事件
e.Form.Close  \'关闭当前窗口

 

这是窗口beforeclose事件的代码

Dim ckmc As String=e.Form.Name
Dim zuo1 As Table=Tables(ckmc+"_zuo1")
Dim you1 As Table=Tables(ckmc+"_you1")

zuo1.DataTable.RejectChanges()  \'取消左侧的修改
you1.DataTable.RejectChanges()  \'取消右侧的修改
--  作者：kao_go
--  发布时间：2014/7/14 15:11:00
--  

一个是窗口自带的关闭按钮

 

一个是我设置的关闭按钮，我要无论哪种关闭方式，都执行取消的操作，然后关闭窗口
--  作者：Bin
--  发布时间：2014/7/14 15:12:00
--  
看7楼.
--  作者：kao_go
--  发布时间：2014/7/14 15:14:00
--  
明白了，感谢两位老师！！