VB6「無效的財產使用」錯誤代碼似乎很好

我有一個很奇怪的問題。首先，代碼。VB6「無效的財產使用」錯誤代碼似乎很好

Private Function ProcessRecord(ByVal rsDocs As ADODB.Recordset) As Variant 

    Dim rsTemp As ADODB.Recordset 
    rsTemp = rsDocs 
    rsDocs = RemoveDuplicateDocs(rsTemp) 

Exit Function

錯誤發生在函數的第二行，其中rsTemp設置爲等於rsDocs。它說：「編譯錯誤：無效的財產使用」。我在其他地方查找了有關此錯誤的信息，並且所有報告都是人們忘記等號的情況，或者錯誤地將「Set」命令添加到代碼行的開頭。這個錯誤對我來說毫無意義，因爲它之前編譯得很好，而且我對這個項目所做的更改甚至在拋出錯誤的類中都沒有。這裏的代碼與以前的方式相同。有沒有人看到過這樣的錯誤，似乎沒有什麼好的理由？謝謝！

來源

2010-10-25 Joe M

您需要使用

set rsTemp = rsDocs

因爲rsTemp是一個對象。

來源

2010-10-25 20:03:13

好的，這似乎是解決這個問題，但任何想法爲什麼此代碼會編譯好嗎？我非常困惑，因爲幾周前我對這段代碼進行了更改，並且它沒有使用「Set」就編譯好了，而且我也沒有更改那部分代碼。 – 2010-10-25 20:10:41

老實說，沒有。這應該不是按原樣編譯的（儘管可能有一個編譯器「開關」，我不知道這會讓它通過）。 – 2010-10-25 20:11:52

VB6「無效的財產使用」錯誤代碼似乎很好

回答

相關問題