求批量删除选定行的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用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

主题：求批量删除选定行的代码