Public Class PCViewModel
Inherits ViewModelBase
 
#Region "Properties PC"
 
 
    Private _myPC As PC
    Private _myGB As GraphicBoard
    Private _myModel As Model
    Private _myMan As Manufacturer
 
    Public Property myMan As Manufacturer
        Set(ByVal value As Manufacturer)
            _myMan = value
            RaisePropertyChanged("myMan")
        End Set
        Get
            Return _myMan
        End Get
    End Property
    Public Property myGB As GraphicBoard
        Set(ByVal value As GraphicBoard)
            _myGB = value
            RaisePropertyChanged("myGB")
        End Set
        Get
            Return _myGB
        End Get
    End Property
    Public Property myPC As PC
    Set(ByVal value As PC)
        _myPC = value
        RaisePropertyChanged("myPC")
    End Set
    Get
        Return _myPC
    End Get
    End Property
    Public Property myModel As PCModel
    Set(ByVal value As PCModel)
        _myModel = value
        RaisePropertyChanged("myModel")
    End Set
    Get
        Return _myModel
    End Get
    End Property
 
 
#End Region
 
 
 
    Sub init()
 
        myPC = New PC
        myModel = New PCModel
        myMan = New Manufacturer
        myCPU = New CPU
        myGB = New GraphicBoard
        mySupplier = New Supplier
 
    load_Data()
 
    End Sub
 
   Public Sub New()
        INIT
   End Sub
 
     Public Sub New(ByVal pPCName As String)
        init()
   End Sub
 
  Private Sub load_Data(Optional ByVal pPCName As String = "*")
 
        myPC.getPC(pPCName) 
 
        myModel.getModel(myPC.pc_pcM_ID)
 
        myMan = New Manufacturer
        myMan.getManufacturer(myModel.model_Man_ID)
 ...
 
     End Sub
End Class

Public Class PCSummaryViewModel
Inherits ViewModelBase
 
Private _pcs As ObservableCollection(Of PCViewModel)
Public Property pcs As ObservableCollection(Of PCViewModel)
    Set(ByVal value As ObservableCollection(Of PCViewModel))
        _pcs = value
 
        RaisePropertyChanged("pcs")
    End Set
    Get
        Return _pcs
    End Get
End Property
 
 
Public Sub New()
    '_pcs = New ObservableCollection(Of PCViewModel)
 
 
    pcs = New ObservableCollection(Of PCViewModel)
   getPCs()
 
End Sub
 
Public Sub getPCs()
    Dim pcvm As PCViewModel
    Dim _pcvms As New ObservableCollection(Of PCViewModel)
    Dim foundPCs As New ObservableCollection(Of PC)
    Dim _model As PCModel
    Dim _man As Manufacturer
    foundPCs = PC.getAllPCs(1)
 
    For Each _pc As PC In foundPCs
 
        pcvm = New PCViewModel
        pcvm.myPC = _pc
 
        _model = New PCModel
        _model.getModel(_pc.pc_pcM_ID)
        pcvm.myModel = _model
 
        _man = New Manufacturer
        _man.getManufacturer(_model.model_ID)
        pcvm.myMan = _man
 
        _pcvms.Add(pcvm)
    Next
    Debug.Print("Got " & pcs.Count.ToString & " pcs")
 
    pcs = _pcvms
 
End Sub
End Class