主题：[求助]怎么样在多行删除代码里加入确认和取消代码

以下是多行删除代码：

With Tables("顾客档案表")

    For i As Integer = .BottomPosition To .TopPosition Step -1

        .Rows(i).Delete()

    Next

End With

Dim Result As DialogResult
Result = MessageBox.Show("你确定删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If result = DialogResult.Yes Then
    With Tables("顾客档案表")
        For i As Integer = .BottomPosition To .TopPosition Step -1
            .Rows(i).Delete()
        Next
    End With
End If

http://www.foxtable.com/help/topics/0326.htm