VB6代码运行时出现无效属性错误，问题究竟出在哪里？

本文共计290个文字，预计阅读时间需要2分钟。

我有一个非常奇怪的问题。代码如下：

vbaPrivate Function ProcessRecord(ByVal rsDocs As ADODB.Recordset) As Variant Dim rsTemp As ADODB.Recordset rsTemp=rsDocs rsDocs=RemoveDuplicateDocs(rsTemp) Exit FunctionEnd Function

错误发生在函数的第一行。

我有一个非常奇怪的问题.一,代码.

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”命令添加到代码行的开头的情况.这个错误对我来说没有任何意义,因为它之前编译得很好,而且我对这个项目所做的更改甚至不在抛出错误的类中.这里的代码与之前的代码完全相同.有没有人见过这样的错误弹出似乎没有什么好理由？谢谢！

你需要使用

set rsTemp = rsDocs

因为rsTemp是一个对象.