主题：窗口的BeforeClose

试试

If DataTables("Table_FaPiaoInfo").HasChanges Then   
    Dim Result As DialogResult
    Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        MessageBox.Show("不错,说明你已经认真学习了.","提示")
    Else
        systemready = False
        DataTables("Table_FaPiaoInfo").RejectChanges()
        systemready = True
    End If
End If