vba - 参数数量错误或属性分配集合添加无效

Question

我已经得到了

wrong number of argument or invalid property assignment collection

错误很久了，但不知道哪里出了问题。我有一个类和该类内的一个 Collection 以及一个用于向该集合添加值的 Sub。

Private sumLosses As Collection

Private Sub Class_Initialize() 
    Set sumLosses = New Collection
End Sub

Public Property Get getSumLosses()
    getSumLosses = sumLosses
End Property

主模块内部:

For Each clientCopy In clientsColl
        clientCopy.getSumLosses.Add 200  'error
        clientCopy.getSumLosses.Add (200) 'error
Next

为什么会失败以及如何将项目添加到类的集合中？

Answer 1

sumLosses 属于 Collection 类型，因此它是一个对象，必须Set 到另一个变量/函数。

使用Set应该可以工作:

Public Property Get getSumLosses() As Collection
    Set getSumLosses = sumLosses
End Property

同时定义属性As Collection可能不是一个坏主意(但这并没有导致错误)。