标题：请教错误原因

准备删除“员工”表的记录，出现错误，请指教，谢谢

 

Dim hs As Integer
For hs=0 To e.DataRow.count
   DataTables("员工").DataRow(hs).delete()
Next

你是要删除所有行？  是用按钮删除还是其他？

错误很多

 

常识错误：

1、DataRow有Count属性吗？

2、行的编号从0开始，最后一行是Count-1，不是Count

 

逻辑错误：

1、假定有3行。

2、第一次执行，hs等于0，删除第一行，原来的第二行成了第一行，第三行成了第二行

3、第二次执行，hs等于1，删除的是现在的第二行，也就是原来的第三行。

3、第三次执行，hs等于2，要删除现在的第三行，可实际上现在只有1行，何来第三行，所以一定会出错。

 

删除所有行的代码很简单：

DataTables("员工").DeleteFor("True")

 

或者：

DataTables("员工").DataRows.Clear