主题：message窗口删除！

老师好：

下面的代码怎么只执行三次就不执行了？(checked=true的行不止三个)

Dim Rlt As DialogResult
For Each r As Row In Tables("转移过账_上传预览table1").Rows
    If r.Checked = True Then
       rlt = MessageBox.show("是否删除选中的行?","确认",MessageBoxButtons.YesNoCancel,MessageBoxIcon.None)
        If rlt = dialogresult.yes Then
            r.Delete
        End If
    End If
Next