状态按钮PressedChanged事件
If e.ToggleButton.Pressed Then
Forms("窗口1").Open
Else
Forms("窗口1").Close
End If
窗口1,beforeclose事件
If DataTables("表A").HasChanges Then
If MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
DataTables("表A").save
End If
End If