主题：如何解决删除多条记录时重复提示？

Dim del As Boolean=True

With CurrentTable
    For i As Integer = .TopPosition To .BottomPosition
        If .Rows(i)("YNPay") OrElse .Rows(i)("YNKP") Then
            del=False
            Exit For
        End If
    Next
End With
If del=False Then
    MessageBox.Show("已付款或已开piao记录不能删除!", "提示")
    Return
End If

If Tables("Order").Compute("count(BBCheck)", "BBCheck = true") > 0 Then
    If MessageBox.Show("是否删除选中记录?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes
        DataTables("Order").DeleteFor("BBCheck=true")
    End If
Else
    Syscmd.Row.Delete()
End If