如果异常语句是:
RequeryDataObject gsfrList
那么将下面的代码添加任意模块中(推荐添加在 basRDPRef 模块中):
Public Function RequeryDataObject(DataObject As Object, Optional FindWhereCondition As String, Optional Connection As Object)
If DataObject Is Nothing Then Exit Function
RequeryDataObject = UMVsoftRDPLib.RequeryDataObject(DataObject, FindWhereCondition, Connection)
End Function
这个问题主要是给RequeryDataObject函数传递了一个错误的参数,导致函数不能正确执行引起的。