小编fre*_*ian的帖子

我正在尝试创建一个类来保存可变数量的项(它们本身就是另一个类对象).

所以,我有2级:

' Class 2 contain each individual quote elements (OTC and MRC)

Private pOTC As String
Private pMRC As String
Public Property Get OTC() As String
    OTC = pOTC
End Property
Public Property Let OTC(Value As String)
    pOTC = Value
End Property

Public Property Get MRC() As String
    MRC = pMRC
End Property
Public Property Let MRC(Value As String)
    pMRC = Value
End Property

然后Class 1包含一个Class 2数组:

Private pCurr As String
Private pQuote(20) As Class2

Public Property Get Curr() …