Develop a strong foundation and understanding of web design by learning HTML, CSS, and additional tools to help you develop your own website.
Public Class Item
Private _itemno As String
Public Property ItemNo() As String
Get
Return _itemno
End Get
Set(ByVal value As String)
_itemno = value
End Set
End Property
Public Sub New(ByVal ItemNo As String)
End Sub
End Class
Public Class Accessory
Private _items As List(Of Item)
Public Property Items() As List(Of Item)
Get
Return _items
End Get
Set(ByVal value As List(Of Item))
_items = value
End Set
End Property
Public Sub New()
_items = New List(Of Item)
End Sub
End Class
Public Class MasterItem
Private _item As Item
Public Property PrimaryItem() As Item
Get
Return _item
End Get
Set(ByVal value As Item)
_item = value
End Set
End Property
Private _accessories As Accessory
Public Property Accessories() As Accessory
Get
Return _accessories
End Get
Set(ByVal value As Accessory)
_accessories = value
End Set
End Property
End Class
Do more with
Premium Content
You need an Expert Office subscription to comment.Start Free Trial