主题：关闭窗口

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

 e.cancel = true