Author: JCS8 | Posted on: 7/15/2009 11:05:13 AM | Views : 317

 Hope someone can help on this error message above.  I search the net to see if this was out there - surprise it was in many forms, but did not solve my issue.  My code is as follows:
 
Public Sub AddToCart(ByVal s As Object, ByVal e As EventArgs) objDT = Session("Cart") Dim Product = ddlProducts.SelectedItem.Text Dim blnMatch As Boolean = False For Each Me.objDR In objDT.Rows If objDR("Product") = Product Then objDR("Quantity") += txtQuantity.Text blnMatch = True Exit For End If Next If Not blnMatch Then objDR = objDT.NewRow objDR("Quantity") = txtQuantity.Text objDR("Product") = ddlProducts.SelectedItem.Text objDR("Cost") = Decimal.Parse(ddlProducts.SelectedItem.Value) ...

Go to the complete details ...