窗口beforeclose事件中
Dim ckmc As String=e.Form.Name
Dim zuo1 As Table=Tables(ckmc+"_zuo1")
Dim you22 As Table=Tables(ckmc+"_you22")
If e.Form.Controls("baocun").Enabled=True Then '保存按钮可用时提示
If MessageBox.Show("单据尚未保存!是否需要退出?","警告",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
e.Form.Controls("quxiao").PerformClick()
'撤销对相关表的修改
Else
如果选择的是“否”,不关闭窗口要怎么写呢???
End If '提示代码
Else
End If