主题：关于关闭程序

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

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

 

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

 

 

代码逻辑有问题。代码顺序要重新调整。

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
            Exit For
        End If
    End If
Next
Syscmd.Project.Exit(False)

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

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