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

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

可以在这里找到原因：

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

建议你将代码改为：

For n A integer = Tables("人资_绩效写实").Rows.Count -1 To 0  Step -1

     Tables("人资_绩效写实").Rows(n).Delete()

Next