主题：删除后事件有BUG

删除后事件中是否有BUG？

 

如果删除一行，CurrentTable.Rows.Count  是正确的，

 

但是，如果删除两行，CurrentTable.Rows.Count  则是零？

 

以下代码中的FOR循环，在删除一行时正常工作，

 

但是在删除多行时，则不工作？

 

后发现，在删除多行后，当前表的行数取不到了，变成了零，

 

尽管并不是把所有行都删除！

 

 

If CurrentTable.Name="流程.流程" Then
   Dim n As Integer
   n=1
MessageBox.Show(CurrentTable.Rows.Count )
   For Each r As Row In  CurrentTable.Rows
        r("本级序号")=n 
       
       n=n+1
   Next
Else
End If