VB6“无效使用属性”错误,代码似乎很好

发布时间：2020-12-17 07:30:12 所属栏目：百科来源：网络整理

导读：我有一个非常奇怪的问题.一,代码. Private Function ProcessRecord(ByVal rsDocs As ADODB.Recordset) As Variant Dim rsTemp As ADODB.Recordset rsTemp = rsDocs rsDocs = RemoveDuplicateDocs(rsTemp)Exit Function 错误发生在函数的第二行,其中rsTemp设

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

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是一个对象.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!