VB datagrid 删除选中的多条记录

Question

现在我是用datagrid显示的ado的记录集
请问 如何删除掉按住CTRL选中的多条记录
试验代码如下
dim varbmk in datagrid1.selbookmarks
adodc2.recordset.bookmark=varbmk
adodc2.recordset.delete
next

这个并不进入循环 不知为何 请指教

Answer 1

朋友，看你的代码，好像DataGrid1与 Adodc1相关联了的。
那么，你用Adodc1.Recordset.Delete 应该能行。
如果你非要用对象 rs1来删除的话，请在前面用Set rs1 = Adodc1.Recordset

根据你现在的代码看，你可以改成下面的样子：

Private Sub Command1_Click()
Dim qr As String
Set rs1 = Adodc1.Recordset'这句如果有错，请改成set rs1=adodc1试试
qr = MsgBox("是否要删除该记录", vbYesNo, "确认")
If qr = vbYes Then
rs1.Delete
rs1.MoveNext
If rs1.EOF Then
rs1.MoveLast
End If
End If
Adodc1.Refresh
DataGrid1.Refresh