主题：关闭窗口

窗口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

 e.cancel = true