VB在线求助，急~~

Question

这个Function编译时提示can't find project or library
应该是类库没有添加吧；要怎么做才行啊？
应该是DataCombo这个的问题
Public Sub FilterDataCombo(ByVal idacbo As DataCombo, ByVal BoundColumn As String, ByVal ListField As String, ByVal iRsdacbo As ADODB.RecordSet)
    Dim strTmpData As String
    Dim rstmp As ADODB.RecordSet
On Error GoTo err
    If iRsdacbo Is Nothing Then Exit Sub
    strTmpData = Trim(idacbo.BoundText)
    iRsdacbo.Filter = adFilterNone
    If strTmpData <> "" Then
        iRsdacbo.Filter = BoundColumn & " like " & kk(strTmpData & "%")
    End If
    Set rstmp = rsCopy(iRsdacbo)
    GetDatadacboGotFocus idacbo, rstmp, BoundColumn, ListField, , IIf(Trim(strTmpData) <> "", False, True)
    iRsdacbo.Filter = 0
    Exit Sub
err:
    Call GetMsg(E_OnErrMsg, "[ FilterDataCombo ]ErrNo:" & err.Number & " ErrDesc:" & err.Description)
End Sub

Answer 1

查看是否引用或添加了：
工程-->引用 Microsoft ActiveX Data Objects 2.5 Library
工程-->部件 Microsoft DataList Controls 6.0 (SP3)

Answer 2

在IDE里运行一下看看是否出错，出错行指向哪里。
记得注掉on error 之类的语句

Answer 3

出错指向Public Sub FilterDataCombo(ByVal idacbo As DataCombo, ByVal BoundColumn As String, ByVal ListField As String, ByVal iRsdacbo As ADODB.RecordSet)把ByVal idacbo As DataCombo拿掉就可以了

Answer 4

我自己的问题，少装了插件；Spread