Public Function rebuilddisplaycart(ByVal cart As DataSet) As DataSet
'
' need the definition for the display dataset
'
Dim displaycart As DataSet = DisplayCartDefinition()
Dim SystemMgr As New eRaceSystem.eRace
Dim ProductInfo As DataSet
Try
For Each CartRow As DataRow In cart.Tables(0).Rows
ProductInfo = SystemMgr.LookupProductByProductId(Integer.Parse(CartRow.Item("P")))
If ProductInfo.Tables(0).Rows.Count = 0 Then
FormMessage.Text = "Product does not exist."
Else
'
' appends to display dataset
'
Dim dRow As DataRow = displaycart.Tables(0).NewRow
With ProductInfo.Tables(0).Rows(0)
dRow("I") = .Item("Description")
dRow("P") = CartRow.Item("P")
dRow("Q") = CartRow.Item("Q")
dRow("PR") = CartRow.Item("Pr")
End With
displaycart.Tables(0).Rows.Add(dRow)
End If
Next
Catch ex As Exception
FormMessage.Text = ex.Message
End Try
Return displaycart
End Function