Update操作實際上只是Price的重新計算
Public Sub Update(ByVal RowID As Integer
Dim Item As CartItem = _items(RowID)
Item
Item
Item
_lastUpdate = DateTime
再次使用索引標識商品
已經查看了Update和Insert方法
Public Sub DeleteItem(ByVal rowID As Integer)
_items
_lastUpdate = DateTime
End Sub
在Insert
Private Function ItemIndexOfID(ByVal ProductID As Integer) As Integer
Dim index As Integer
For Each item As CartItem In _items
If item
Return index
End If
index +=
Next
Return
[
From:http://tw.wingwit.com/Article/program/net/201311/15591.html