Help instantiating Object which contains 2 embedded objects

pdidow

I am having some real issues with this one. I have a class which contains two other objects...but I cannot seem to instantiate those sub objects. Here is the code for my class:
[CODE]
Option Explicit On
Public Class Boot
'A collection of Heads and Shells
#Region "Private Variables"
Private _oHead As New WQS_BusinessEntity.Head
Private _oShell As New WQS_BusinessEntity.Shell
Private _iBootID As Integer
Private _iBootTypeID As Integer
Private _iVesselID As Integer



#End Region

#Region "Constructors"
Public Sub New()

End Sub
Public Sub New(ByVal iBootID As Integer, ByVal iBootTypeID As Integer, ByVal iVesselID As Integer)
_oHead = New WQS_BusinessEntity.Head
_oShell = New WQS_BusinessEntity.Shell
_iBootID = iBootID
_iBootTypeID = iBootTypeID
_iVesselID = iVesselID

End Sub
#End Region

#Region "Public Properties"
Public Property oHead() As Head
Get
Return _oHead
End Get
Set(ByVal oValue As Head)
_oHead = oValue
End Set
End Property

Public Property oShell() As Shell
Get
Return _oShell
End Get
Set(ByVal oValue As Shell)
_oShell = oValue
End Set
End Property

Public Property iBootID() As Integer
Get
Return _iBootID
End Get
Set(ByVal iValue As Integer)
_iBootID = iValue
End Set
End Property
Public Property iBootTypeID() As Integer
Get
Return _iBootTypeID
End Get
Set(ByVal iValue As Integer)
_iBootTypeID = iValue
End Set
End Property
Public Property iVesselID() As Integer
Get
Return _iVesselID
End Get
Set(ByVal iValue As Integer)
_iVesselID = iValue
End Set
End Property
#End Region
End Class


Public Class BootSet
Inherits Collections.ArrayList

Public Shadows Function Add(ByVal oValue As Boot) As Integer
If Not oValue Is Nothing Then
MyBase.Add(oValue)

End If
End Function

Default Public Shadows Property Item(ByVal iIndex As Integer) As Boot
Get
Return CType(MyBase.Item(iIndex), Boot)

End Get
Set(ByVal Value As Boot)
MyBase.Item(iIndex) = Value
End Set
End Property

End Class
[/CODE]


When I am using my Boot Object, I do so Here in my DAL:

[CODE]

Dim oRow As DataRow
Dim oSet As New WQS_BusinessEntity.BootSet
Dim iCount As Integer = 0
'Dim iTable As Integer
'iTable = oDS.Tables.Count - 1
For Each oRow In oDS.Tables(1).Rows
Dim oItem As New WQS_BusinessEntity.Boot

With oItem


'Boot Data
.iBootID = oDS.Tables(0).Rows(iCount).Item("BootID")
.iBootTypeID = oDS.Tables(1).Rows(iCount).Item("BootFunctionTypeId")
.iVesselID = oDS.Tables(1).Rows(iCount).Item("VesselId")
'1 head, 1 shell per boot now.

'Head Data
oItem.oHead.iHeadID = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("HeadId"))
oItem.oHead.iVesselID = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("VesselId"))
oItem.oHead.iMaterialID = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("HeadMaterialId"))
oItem.oHead.iLocationID = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("HeadLocationId"))
oItem.oHead.strMaterial = oDS.Tables(1).Rows(iCount).Item("HeadMaterialName")
oItem.oHead.dDiameter = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("HeadDiameter"))
oItem.oHead.dCurrentThickness = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("HeadCurrentThickness"))
oItem.oHead.dNominalThickness = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("HeadNominalThickness"))
oItem.oHead.strShape = oDS.Tables(1).Rows(iCount).Item("HeadShapeName")
oItem.oHead.iShapeID = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("HeadShapeId"))
oItem.oHead.strLocation = EmptyIfNull(oDS.Tables(1).Rows(iCount).Item("HeadLocationOnVesselName"))
'Shell(Data)
oItem.oShell.iShellID = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("ShellId"))
oItem.oShell.iVesselID = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("VesselId"))
oItem.oShell.iMaterialID = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("ShellMaterialId"))
oItem.oShell.strMaterial = EmptyIfNull(oDS.Tables(1).Rows(iCount).Item("ShellMaterialName"))
oItem.oShell.dDiameter = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("ShellDiameter"))
oItem.oShell.dCurrentThickness = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("ShellCurrentThickness"))
oItem.oShell.dNominalThickness = ZeroIfNull(oDS.Tables(1).Rows(iCount).Item("ShellNominalThickness"))
Select Case oDS.Tables(1).Rows(iCount).Item("ShellOrientation")
Case 0.0
oItem.oShell.cOrientation = "H"
Case 90.0
oItem.oShell.cOrientation = "V"
Case Else
'default to horizontal
oItem.oShell.cOrientation = "H"
End Select

End With
'Add the Boot to the BootSet
oSet.Add(oItem)
iCount = iCount + 1

Next

Return oSet
End Function
[/CODE]

However, when I place a breakpoint on the 'Return oSET' line, and add a watch, this is what I see:
[CODE]

- oSet Count = 5 WQS_BusinessEntity.BootSet
- (0) {WQS_BusinessEntity.Boot} Object
- WQS_BusinessEntity.Boot {WQS_BusinessEntity.Boot} WQS_BusinessEntity.Boot
_iBootID 220 Integer
_iBootTypeID 0 Integer
_iVesselID 30 Integer
+ _oHead Count = 0 WQS_BusinessEntity.Head
+ _oShell Count = 0 WQS_BusinessEntity.Shell
iBootID 220 Integer
iBootTypeID 0 Integer
iVesselID 30 Integer
+ oHead Count = 0 WQS_BusinessEntity.Head
+ oShell Count = 0 WQS_BusinessEntity.Shell
+ (1) {WQS_BusinessEntity.Boot} Object
+ (2) {WQS_BusinessEntity.Boot} Object
+ (3) {WQS_BusinessEntity.Boot} Object
+ (4) {WQS_BusinessEntity.Boot} Object
[/CODE]

Notice the count for my two objects, Ohead, and oShell, is zero. Im not sure why this doesnt instantiate properly, as I believe is what is going on. I could really use some help!