以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 关于删除选定多行代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42782)
--  作者：netfox168
--  发布时间：2013/11/21 20:05:00
--  [求助] 关于删除选定多行代码

有关删除行的代码有：

 

Tables("表名").Current.Delete

Tables("表名").Current.DataRow.Delete

 

效果好像都一样，就是逐行删除，而我想一次删除选定的多行，代码该怎么写？
--  作者：有点甜
--  发布时间：2013/11/21 20:11:00
--  
 参考

For i As Integer =  Tables("订单").BottomPosition To  Tables("订单").TopPosition step -1
     Tables("订单").Rows(i).Delete
Next

[此贴子已经被作者于2013-11-21 20:11:09编辑过]
--  作者：实话实说
--  发布时间：2013/11/22 9:58:00
--  

一次删除选定的多行，有提示，锁表不能删除
If Tables("表A").AllowEdit = True Then
    Dim Result As DialogResult
    Result = MessageBox.Show("确定要删除当前选定的行吗?", "提示", MessageBoxButtons.YesNo)
    If Result = DialogResult.Yes Then

With Tables("表A")
    For i As Integer = .BottomPosition To .TopPosition Step -1
        .Rows(i).Delete()
    Next
End With
        \'Tables("表A").Current.Delete
    Else
        e.Cancel = True \'取消默认动作
    End If
Else
    e.Cancel = True \'取消默认动作
End If