我有一个非常奇怪的问题.一,代码.
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是一个对象.