<asp:GridView ID="grdCardShop" runat="server" AutoGenerateColumns="False" _
  DataKeyNames="ProductNr" DataSourceID="dsShopingCard"
Height="224px" ShowFooter="True" ShowHeader="False" Width="728px" _
AutoGenerateEditButton="True">
      	<Columns>
          <asp:BoundField DataField="ProductNr" HeaderText="ProductNr" _
            ReadOnly="True" SortExpression="ProductNr" />
          <asp:BoundField DataField="Name" HeaderText="Name" ReadOnly="True" _
          SortExpression="Name" />
          <asp:BoundField DataField="Count" HeaderText="Count" _
          SortExpression="Count" />
          <asp:BoundField DataField="Price" HeaderText="Price" ReadOnly="True" _
          SortExpression="Price" />
          <asp:BoundField DataField="Sum" HeaderText="Sum" ReadOnly="True" _
          SortExpression="Sum" />
      	</Columns>
  	<EditRowStyle BackColor="NavajoWhite" />
</asp:GridView>
 
 <asp:ObjectDataSource ID="dsShopingCard" runat="server" _
   DataObjectTypeName="SShopingCardList"
 DeleteMethod="Delete" InsertMethod="Insert" SelectMethod="Select" _
 UpdateMethod="Edit">
       <InsertParameters>
            <asp:Parameter Name="productNr" Type="String" />
       </InsertParameters>
 </asp:ObjectDataSource>

Public Class CShopingCardList
 
    Public Shared Function [Select]() As List(Of SShopingCardList)
        Return _lstShopingCardList
    End Function
 
    Public Shared Sub Delete(ByVal shopingCard As SShopingCardList)
 
        _currentShopingCard = shopingCard
 
        Dim found As SShopingCardList = _lstShopingCardList.Find(AddressOf _
          MatchShopingCardID)
 
        _lstShopingCardList.Remove(found)
 
 
    End Sub
 
    Public Shared Sub Edit(ByVal shopingCard As SShopingCardList)
 
        For Each sc As SShopingCardList In _lstShopingCardList
            If sc.ProductNr = shopingCard.ProductNr Then
                sc.Count = shopingCard.Count
            End If
        Next
 
    End Sub
 
End Class