小白求教，vb中datagrid中同时删除选定的几行的代码

Question

Private Sub Command_3_Click()
 Dim intYesNo
 Frame_add.Visible = False
 DataGrid1.AllowDelete = True
 If DataGrid1.SelBooks.Count = 0 Then
 MsgBox "请选择一条记录以供操作!", vbOKOnly + vbExclamation, "注意！"
 Exit Sub ElseIf CZLX = 1 Then
 Adodc1.RecordSource = "select *from tb_BasicInformation"
 Adodc1.Refresh
 intYesNo = MsgBox("确实要删除这条参数吗？", vbYesNo + vbExclamation, "注意！") If intYesNo = vbYes Then Dim varBmk As Variant
 For Each varBmk In DataGrid1.SelBooks
 Adodc1.Recordset.Book = varBmk
 Adodc1.Recordset.Delete
 Adodc1.Recordset.UpdateBatch
 Next
 End If
 DataGrid1.Refresh
 Adodc1.RecordSource = "select *from tb_BasicInformation"
 Label_Num.Caption = Adodc1.Recordset.RecordCountvbdatagrid

Answer 1

先自己站1l，奥，忘说 了，用的是sql数据库，我的想法是通过selbooks对所有选定的行储存，然后将每个selbooks中的varbmk进行删除，但是没有反应啊，删了还是一样