以下のようなコードで作業しています。DB の結果をループし、各行からビュー モデルを作成することによりBasketItemViewModel
、クラスのスコープ内にの配列が作成されます。Basket
クラスを捨てて、Basket
それを何も設定しない場合、配列をループして、BasketItemViewModel
それらのそれぞれを何も設定しない必要がありますか?
Class Basket
public GuidId
public BasketItemViewModels
public TotalItems
public TotalCost
Public Property Get TotalCostFormatted()
TotalCostFormatted = FormatCurrency(TotalCost,0)
End Property
public Default function Init(p_GuidId, p_TotalItems, p_TotalCost)
GuidId = p_GuidId
BasketItemViewModels = GetBasketItemViewModels()
TotalItems = p_TotalItems
TotalCost = p_TotalCost
set Init = Me
end function
public function GetBasketItemViewModels()
dim vmArray()
for each row in dbResults
// ...get some values...
set vmArray(i) = (new BasketItemViewModel) (price, quantity, productId)
next
GetBasketItemViewModels = vmArray
end function
End Class