datagrid控件如何实现多选删除？

Question

datagrid控件如何实现多选删除？

Answer 1

Private Sub cmdSicDelete_Click()
On Error Resume Next
  '对参数进行删除
       If DataGrid1.SelBooks.Count = 0 Then
            MsgBox "请选择一条记录以供操作!"
            Exit Sub
       End If
    Dim intYesNo As Integer
    Set rsInspection = New ADODB.Recordset
        With rsInspection
             .CursorType = adOpenDynamic
             .CursorLocation = adUseClient
             .LockType = adLockPessimistic
             .Source = "select * from tblpropertyspec where property='" & txtProperty.Text & "'"
         Set .ActiveConnection = cnnCMMS
             .Open
        End With
    
    intYesNo = MsgBox("确实要删除这条参数吗？", vbYesNo)
    
    If intYesNo = vbYes Then
       Dim varBmk As Variant       For Each varBmk In DataGrid1.SelBooks
           rsInspection.Book = varBmk
           rsInspection.Delete
       Next
         rsInspection.Close
         Set rsInspection = Nothingend sub