主题：（求助 急）如何设置，使在某一事件发生前出现一个确认框（确认或取消）

If e.DataCol.Name = "是否还原到学生情况表" Then

    Dim Result As DialogResult

    Result = MessageBox.Show("確定嗎?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    If Result = DialogResult.Yes Then

        With Tables("历史学生学生情况表")

            For i As Integer = .BottomRow To .TopRow Step -1

                Dim r1 As Row = .Rows(i)

                Dim r2 As Row = Tables("学生情况表").AddNew

                For Each c As Col In .Cols

                    r2("学号") = r1("学号")

                    r2("姓名") = r1("姓名")

                    r2("性别") = r1("性别")

                    r2("现居住地址") = r1("现居住地址")

                    r2("职务") = r1("职务")

                Next

                r1.Delete()

            Next

        End With

    End If

End If