这是【取消】按钮的click的事件e.Form.Close '关闭当前窗口
这是窗口beforeclose事件的代码
Dim ckmc As String=e.Form.NameDim zuo1 As Table=Tables(ckmc+"_zuo1")Dim you1 As Table=Tables(ckmc+"_you1")
zuo1.DataTable.RejectChanges() '取消左侧的修改you1.DataTable.RejectChanges() '取消右侧的修改