主题：关于关闭程序

单击关闭程序按钮执行下列代码

For Each dt As DataTable In DataTables
    If dt.HasChanges Then
        Dim Result As DialogResult
        Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            DataTables.save
            Syscmd.Project.Exit(True)
            Exit For
        Else
            Syscmd.Project.Exit(False)
        End If
    Else
        Syscmd.Project.Exit()
    End If
Next

 

这句代码有问题吗？

在运行的时候如果表发生修改时，会弹出一个对话框，提示保存数据吗？如果选择取消时会出错，不知道那错了，请老师给看看

此主题相关图片如下：12.png

 

我怎么查也查不出，这段代码中根本没有设置的这个提示框呢？

 

 

如果单击关闭按钮点错了应该有一个取消操作提示选项取消关闭操作