主题：关闭窗口

用e.Form.Close  '关闭当前窗口，会连整个狐表程序都关闭了？？？

不会,除非你窗口关闭事件有关闭整个项目的代码,你检查一下看看.

这是【取消】按钮的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()

 

死循环了

哦，那我e.Form.Controls("quxiao").PerformClick() 应该放在afterclose对吗？

你要做什么操作,你直接在关闭事件操作

这是【取消】按钮的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()  '取消右侧的修改

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

 

一个是我设置的关闭按钮，我要无论哪种关闭方式，都执行取消的操作，然后关闭窗口

看7楼.

明白了，感谢两位老师！！