主题：求以下代码的问题

Dim Result As DialogResult
Result = MessageBox.Show("你确定要清除已收款单据吗？","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
If Result = DialogResult.Ok  Then
    For Each r As Row In Tables("应收款").Rows
        If r("未结算") = 0 Then
            r.Delete
        End If
    next

End if

做了个清除数据的按钮，每次点按都清除不净，只清除一部分，要连续点按几次才行

多谢！