With rsAssetActivity
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "SELECT * FROM tblassetactivity WHERE serialnumber ='" & adoAsset.Recordset.Fields("serialnumber").Value & "'"
Set .ActiveConnection = cnnCMMS
.Open
End With
Set dgAssetActivity.DataSource = Nothing
Set dgAssetActivity.DataSource = rsAssetActivity
Private Sub cmdActiveDelete_Click()
On Error Resume Next
Dim intYesNo As Integer
If dgAssetActivity.SelBookmarks.Count = 0 Then
MsgBox "请选择一条记录以供操作!"
Exit Sub
End If
Set rsAssetActivity = New ADODB.Recordset
With rsAssetActivity
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "SELECT * FROM tblassetactivity WHERE serialnumber ='" & adoAsset.Recordset.Fields("serialnumber").Value & "'"
Set .ActiveConnection = cnnCMMS
.Open
End With
intYesNo = MsgBox("确实要删除这条参数吗?", vbYesNo)
If intYesNo = vbYes Then
Dim varBmk As Variant
For Each varBmk In dgAssetActivity.SelBookmarks
rsAssetActivity.Bookmark = varBmk
rsAssetActivity.Delete
Next