Lisa,
* "Lisa" <tc*@pc.jaring.my> scripsit:
Can anybody tell me what's the problem with this code?
Class CRate
public mRate as double
public mValue as double
end class
Class CBox
public bNo as long
public bRate as CRate()
End Class
======================
Private Sub Test()
Dim J as long
Dim BoxRead as CBox = New CBox(9) {}
For i = 0 to 9
BoxRead(i).bNo = i
BoxRead(i).bRate = New CRate(5) {}
For j = 0 to 5
BoxRead(i).bRate(j).mRate = (i * 12) + j
BoxRead(i).bRate(j).mValue = (i * j)
next j
next i
For i = 0 to 9
For j = 0 to 5
msgbox (BoxRead(i).bRate(j).mRate ) '<=== Error ?!
BoxRead(i).bRate(j).mValue
next j
next i
End Sub
I am not sure what doesn't work (when does the error occur, which error,
....), but try this code:
\\\
Class CRate
Public mRate As Double
Public mValue As Double
End Class
Class CBox
Public bNo As Long
Public bRate() As CRate
End Class
Private Sub Test()
Dim i As Integer, j As Integer
Dim BoxRead() As CBox = New CBox(9) {}
For i = 0 To 9
BoxRead(i) = New CBox
BoxRead(i).bNo = i
BoxRead(i).bRate = New CRate(5) {}
For j = 0 To 5
BoxRead(i).bRate(j) = New CRate
BoxRead(i).bRate(j).mRate = (i * 12) + j
BoxRead(i).bRate(j).mValue = (i * j)
Next j
Next i
For i = 0 To 9
For j = 0 To 5
MsgBox(BoxRead(i).bRate(j).mRate)
MsgBox(BoxRead(i).bRate(j).mValue)
Next j
Next i
End Sub
///
--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>