我加了下列代码:
Private Sub MaterialAdo_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
End Sub
但是运行时出现:编译错误,提示为:过程声明与同名事件或过程的描述不匹配。
不知道是为什么,不知所措。
我的代码如下,请高手帮忙改一下,现在实现起来是删除不了了,急!
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
MaterialDG.Refresh
Select Case Button.Key
Case "First"
CheckRecordCount
MaterialAdo.Recordset.MoveFirst
Case "Previous"
CheckRecordCount
MaterialAdo.Recordset.MovePrevious
If MaterialAdo.Recordset.BOF Then
MaterialAdo.Recordset.MoveFirst
End If
Case "Next"
If MaterialAdo.Recordset.RecordCount = 0 Then
Exit Sub
End If
MaterialAdo.Recordset.MoveNext
If MaterialAdo.Recordset.EOF Then
MaterialAdo.Recordset.MoveLast
End If
Case "Last"
If MaterialAdo.Recordset.RecordCount = 0 Then
Exit Sub
End If
MaterialAdo.Recordset.MoveLast
Case "Edit"
MaterialDG.AllowAddNew = True
'MaterialDG.AllowDelete = True
MaterialDG.AllowUpdate = True
MaterialAdo.Recordset.MoveNext
If MaterialAdo.Recordset.EOF Then
MaterialAdo.Recordset.MoveLast
End If
Case "Delete"
MaterialDG.AllowDelete = True
MaterialDG.AllowUpdate = True
'MaterialDG.Move (MaterialDG.Bookmark)
If MaterialAdo.Recordset.RecordCount = 0 Then
Exit Sub
End If
If MaterialAdo.Recordset.EOF And MaterialAdo.Recordset.RecordCount = 1 Then
MaterialAdo.Recordset.Delete
MaterialAdo.Refresh
MaterialDG.Refresh
MaterialAdo.Recordset.Update
Exit Sub
ElseIf MaterialAdo.Recordset.EOF Then
MaterialAdo.Recordset.Delete
MaterialAdo.Recordset.MovePrevious
MaterialAdo.Recordset.Requery
MaterialAdo.Refresh
MaterialAdo.Recordset.Update
End If
' Else
' MsgBox "没有当前纪录"
' End If
' If MaterialAdo.Recordset.RecordCount > 1 Then
' MaterialAdo.Recordset.MoveFirst
' End If
Case "Quit"
Unload Me
'Case Else
Case "Delete"
If MaterialAdo.Recordset.EOF And MaterialAdo.Recordset.Bof then exit
Materislado.Recordset.Delete
MaterislAdo.Recordset.MoveNext
if MaterislAdo.Recordset.Eof then MaterislAdo.Recordset.MoveLast
'MaterislAdo.Refresh