以文本方式查看主题

-  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=26026)
--  作者：piaoliangmm
--  发布时间：2012/11/22 13:52:00
--  求批量删除选定行的代码

图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看求批量删除选定单元格的代码
--  作者：lin_hailun
--  发布时间：2012/11/22 14:10:00
--  
 方法一：Syscmd.Row.Delete()

 方法二：

 For i As Integer = Tables("").ButtonRow To Tables("").TopRow
     Tables("").Rows(i).Delete
 Next
[此贴子已经被作者于2012-11-22 14:10:18编辑过]
--  作者：piaoliangmm
--  发布时间：2012/11/22 14:30:00
--  
成功了，谢谢Lin
--  作者：gsnake
--  发布时间：2013/6/2 8:27:00
--  
以下是引用lin_hailun在2012-11-22 14:10:00的发言：
 方法一：Syscmd.Row.Delete()

 方法二：

 For i As Integer = Tables("").ButtonRow To Tables("").TopRow
     Tables("").Rows(i).Delete
 Next
[此贴子已经被作者于2012-11-22 14:10:18编辑过]

 

偶尔看到以上的回答！试了一下，方法一是对的

 

方法二：应该bottom，且要加上 step -1

 

For i As Integer = Tables("").BottomRow To Tables("").TopRow step -1
     Tables("").Rows(i).Delete
 Next

 

或直接：

For i As Integer = Tables("").BottomRow To Tables("").TopRow step -1
     Tables("").current.Delete
 Next

 

或直接：

 

For i As Integer = Tables("").TOPROW To Tables("").BOTTOMROW 

     Tables("").current.Delete
 Next

 

或直接：

 

With Tables("")
    For i as Integer = .TopPosition To .BottomPosition
        .current.delete
    Next
End With