主题：[求助]这段代码为何只能删除一半的行数

下面这段代码每次执行只能删除当前表一半的行数，不知问题在何处，请高手指点

If Tables("人资_绩效写实").rows.Count > 0
    Dim i As Integer = Tables("人资_绩效写实").rows.Count
    Dim Result As DialogResult
       Result = MessageBox.Show("不可逆,确定删除这" & i & "行数据", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            For Each r As Row In Tables("人资_绩效写实").Rows
                r.locked = False
                r.delete()
            Next
            DataTables("人资_绩效写实").save()
        End If
  End If