如何接受參數的Visual Basic函數返回一個對象6

你好我嘗試編寫返回對象的功能，但它給了我一個參數不可選的錯誤，這是我的代碼如何接受參數的Visual Basic函數返回一個對象6

Public Function searchVehicle(c As String, v As Variant) As Collection 
    Dim qur As String 
    qur = "select * from [vehicle] where (" & c & " like '%" & v & "%')" 
    Set mobjRst = conn.execQuery(qur) 
    Dim tmpV As Vehicle 
    Dim res As Collection 
    With mobjRst 
    Do Until .EOF 
    Set tmpV = New Vehicle 
    Call tmpV.popVehicle(!ID, !make, !model, !purchaseyear, !totalmilage, !milageafterservice, !servicemilage, !description) 
    res.Add (tmpV) 
    .MoveNext 
    Loop 
    End With 
searchVehicle = res 
End Function

來源

2016-08-25 Shady3cho

錯誤出現在哪一行？ –

不會向我們顯示導致錯誤的代碼行，它最有可能是您的Vehicle類的popVehicle方法 - 但是直到您告訴我們它在哪條線上......這是一個猜測 – dbmitch

您如何調用該函數？ – Smith

我首先想到的是，因爲它是一個對象引用，所以您需要使用Set來設置返回值。

Set searchVehicle = res

它可能會更有助於知道哪些行你看到的問題。

作爲一個側面說明，你可能也想看看，當你需要使用電話時，當你不知道：https://blogs.msdn.microsoft.com/ericlippert/2003/09/15/what-do-you-mean-cannot-use-parentheses/

來源

2016-08-25 12:17:54

謝謝，這正是我所需要的，我不知道我錯過了什麼 – Shady3cho

你的問題主要表現在以下調用函數 -

searchVehicle = res

您已指定searchVehicle具有組合集合的字符串（c）和變體（v）。這將作爲錯誤你有沒有設定值C或V之後，再打電話給你的函數 -

searchVehicle = (c, v) collection

給我們你怎麼稱呼這等你的按鈕單擊事件，返回什麼一些更多的信息...

來源

2016-08-27 17:50:17

如何接受參數的Visual Basic函數返回一個對象6

回答

相關問題