[vba]Код
Sub main()
Dim installers(0) As New Installer
MsgBox installers(0).orders(0).isDone
End Sub
[/vba]
[vba]Код
' class Installer
Public name As String
Dim orders_(2000) As New Order
Public Property Let orders(ByVal index As Integer, ByVal p As Order)
orders(index) = p
End Property
Public Property Get orders(ByVal index As Integer) As Order
orders= orders_(index)
End Property
[/vba]
[vba]Код
'Class Order
Public numberOrder As Long, isDone As Boolean
[/vba]
Казалось бы, примитивно. Но вылезает ошибка, мол нельзя так использовать