以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除到最后一行也没有的时候提示错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33129)
--  作者：wuxianzuoji41
--  发布时间：2013/5/14 14:22:00
--  删除到最后一行也没有的时候提示错误
Tables("短信_tblDuanxin").Current.Delete
删除到最后一行也没有的时候提示错误，怎么做一个判断，如果一行也没有了，就不能使用删除了
--  作者：jspta
--  发布时间：2013/5/14 14:28:00
--  

for intA = Tables("短信_tblDuanxin").rows.count - 1 to 0 step - 1

Tables("短信_tblDuanxin").rows(intA).delete

next

 

还有个批量删除的方法，你可以找找
--  作者：don
--  发布时间：2013/5/14 14:28:00
--  
Dim r as row = Tables("短信_tblDuanxin").Current
if r isnot nothing  then  r.Delete
--  作者：Bin
--  发布时间：2013/5/14 14:29:00
--  
你为什么要这样删除- - 

datatatables("XX").datarows.Clear 就可以了.

如果想有会反悔的机会循环删除行也不是像你这样的.

for each r as row in Tables("短信_tblDuanxin").rows
r.delete
next
--  作者：jspta
--  发布时间：2013/5/14 16:07:00
--  
以下是引用Bin在2013-5-14 14:29:00的发言：
你为什么要这样删除- - 

datatatables("XX").datarows.Clear 就可以了.

如果想有会反悔的机会循环删除行也不是像你这样的.

for each r as row in Tables("短信_tblDuanxin").rows
r.delete
next

你这个删除会不会出错？没测试额。因为你每删除一行，行位置发生变化，最后结果可能就是没全部删除完。

 

还有就是，楼主这个的目的是要做什么哪
--  作者：Bin
--  发布时间：2013/5/14 16:09:00
--  
以下是引用jspta在2013-5-14 16:07:00的发言：

你这个删除会不会出错？没测试额。因为你每删除一行，行位置发生变化，最后结果可能就是没全部删除完。

 

还有就是，楼主这个的目的是要做什么哪

FOR EACH是不存在这个问题的.