VB datagrid 删除选中的多条记录

2025-03-04 12:12:17

推荐回答（1个）

回答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