相关疑难解决方法(0)

我有一Client堂课。在那个类里面有一个数组losses。首先，我创建并填充客户端clientsColl数组。然后对于该数组中的每个客户端，我填充它的losses数组。

然后我尝试打印调试losses每个客户端的第一个元素。但是，它不起作用并Property let procedure not defined and property get procedure did not return an object出现错误。

而同一时间，如果我只是尝试显示的第一个元素losses为第一个客户，没有任何周期，它工作正常：

Dim clientsColl() As Client
clientsColl = getClients(dataWorkbook)

Dim clientCopy As Variant    

Debug.Print "first: " & clientsColl(1).getLosses(1) 'works fine
For Each clientCopy In clientsColl
    Debug.Print "in for each: " & clientCopy.getLosses(1) 'error here
Next

在Client课堂上：

Public Property Get getLosses()
    getLosses = losses
End Property

Private losses() As …