主题：大家帮我看一下这个退出系统的按钮有什么问题啊！！！

For Each dt As DataTable In DataTables

    If dt.HasChanges Then

        If MessageBox.Show("数据已修改,是否保存?","提示",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Information) = DialogResult.Yes Then

            Syscmd.Project.Exit(True)

        Else If MessageBox.Show("数据已修改,是否保存?","提示",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Information) = DialogResult.No Then

            DataTables.RejectChanges

        Else If MessageBox.Show("数据已修改,是否保存?","提示",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Information) = DialogResult.Cancel Then

            Syscmd.Edit.Undo()

        End If

    Else

        If MessageBox.Show("确认退出吗?","请确认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then

            Syscmd.Project.Exit()

        Else

            Syscmd.Edit.Undo()

        End If

    End If

Next

大家帮我看一下这个退出系统的按钮有什么问题啊，弄半天都不知道怎么调！！！