以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]删除所有行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47601)

--  作者:Phoebe_fdk
--  发布时间:2014/3/13 10:52:00
--  [求助]删除所有行
对当前表进行了筛选,想一次性全部删除筛选后的所有行。用了如下代码。 for each r as row in tables("1").rows r.locked=false r.delete() next 运行时需要多次运行才能删除所有行,到底什么原因啊?
--  作者:Bin
--  发布时间:2014/3/13 11:00:00
--  
帮助有介绍这个问题,认真看的话就会有注意到.

应该使用for  next 循环倒着来删除

For i As Integer = Tables("表A").Rows.count-1 To 0 Step -1
        Tables("表A").Rows(i).Delete
Next