UC知道VB编译错误：过程声明与同名事件或过程的描述不匹配
来源：百度知道 编辑：UC知道 时间：2024/07/15 19:42:32
Adodc2.Refresh
ResumeInit
货物编号.Text = 货物编号.Text + 1
'写入系统日志
fMainForm.WriteLog ("增加新货物")
End Sub
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
Adodc1.caption = Adodc1.Recordset.Fields("类别名称").Value
End Sub
是不是 这段有问题！各位大侠帮我看看！
ResumeInit
货物编号.Text = 货物编号.Text + 1
'写入系统日志
fMainForm.WriteLog ("增加新货物")
End Sub
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
Adodc1.caption = Adodc1.Recordset.Fields("类别名称").Value
End Sub
是不是 这段有问题！各位大侠帮我看看！
这个错误的意思是调用函数时类型不匹配的，比如函数
private sub a(a as integer)
如果调用时call a("1")就会这样提示，你看一下是哪一行提示错误，找一下调用时的类型改下就行了
注意有时候变量要先定义，尽量不要让VB自定义类型，防止此类事件发生
fads