麻煩與對象數組在VBA Excel 2010中

Question

Private oiCustoms() As CCustomClass 
Public Property Get Partners() As CCustomClass() 
    Set Partners() = oiCustoms() 
End Property 

Public Property Set Partners(values() As CCustomClass) 
    ReDim oiPartners(values.Count) 
    Set oiCustoms() = values() 
End Property 

對象屬性當我嘗試運行我得到一個編譯錯誤：爲同一屬性的屬性過程 定義不一致，或財產procudure有n個可選參數，一個ParamArray ，或者一個無效的Set最終參數。

這裏有什麼問題？我已經做了一些看起來，它看起來像我不能使用數組作爲屬性參數。它是否正確？任何良好的解決方法。我需要將這些數據存儲在數組中供其他地方使用。

Answer 1

你正在混淆數組與對象。

Private oiCustoms() As CCustomClass 
Public Property Get Partners() As CCustomClass() 
    Partners = oiCustoms 
End Property 

Public Property Let Partners(values() As CCustomClass) 
    ReDim oiPartners(LBound(values) To UBound(values)) 
    oiCustoms = values 
End Property