J
Justin Dutoit
Hey folks. I need to get the price out of a shopping cart, and I couldn't
get a line like
MyGrid.Item(i).Cells(x).Text
to work. I don't think it should have a control, because the user doesn't
interact with this Price. I'd like to get the price straight out of the
grid. Thanks for any ideas, this is a code snippet.
Sub Update_Click(Src As Object, E As EventArgs)
Dim BasketNumber As Integer = Session("BasketNumber")
Dim Counter As Integer = 0
Dim txtNumberOfUnits As TextBox
Dim lblProductNumber As Label
Dim ThisNumberOfUnits As Integer = 0
Dim ThisProductNumber As Integer = 0
Dim OldNumberOfUnits As Integer = 0
Dim ThisPrice As Single = 0
Dim DifferenceUnits As Integer = 0
Dim DifferenceTotal As Single = 0
Dim ConnectionString = "provider=sqloledb.1;data source=(local);Connect
Timeout=30;database=H_justindutoit;User
ID=justindutoit;Password=paulpaul;Packet Size=4096;"
Dim Purchases As PurchasesDB = New PurchasesDB(ConnectionString)
Dim Baskets As BasketsDB = New BasketsDB(ConnectionString)
For Counter = 0 To MyDataGrid.Items.Count - 1
txtNumberOfUnits = MyDataGrid.Items(Counter).FindControl("numberofunits")
ThisNumberOfUnits = CInt(txtNumberOfUnits.Text)
OldNumberOfUnits = MyDataGrid.DataKeys(Counter)
DifferenceUnits = ThisNumberOfUnits - OldNumberOfUnits
lblProductNumber = MyDataGrid.Items(Counter).FindControl("productnumber")
ThisProductNumber = CInt(lblProductNumber.Text)
ThisPrice = MyDataGrid.Items(Counter).Cells(2).Text ' <<<<<<<<< Don't
know what this should be
Purchases.UpdatePurchase(BasketNumber, ThisProductNumber,
ThisNumberOfUnits)
If DifferenceUnits > 0 Then
DifferenceTotal = ThisPrice * DifferenceUnits
Baskets.IncreaseTotal(BasketNumber, DifferenceTotal)
Else If DifferenceUnits < 0 Then
DifferenceUnits = -DifferenceUnits
DifferenceTotal = ThisPrice * DifferenceUnits
Baskets.ReduceTotal(BasketNumber, DifferenceTotal)
End If
Next
End Sub
Tks
Justin Dutoit
get a line like
MyGrid.Item(i).Cells(x).Text
to work. I don't think it should have a control, because the user doesn't
interact with this Price. I'd like to get the price straight out of the
grid. Thanks for any ideas, this is a code snippet.
Sub Update_Click(Src As Object, E As EventArgs)
Dim BasketNumber As Integer = Session("BasketNumber")
Dim Counter As Integer = 0
Dim txtNumberOfUnits As TextBox
Dim lblProductNumber As Label
Dim ThisNumberOfUnits As Integer = 0
Dim ThisProductNumber As Integer = 0
Dim OldNumberOfUnits As Integer = 0
Dim ThisPrice As Single = 0
Dim DifferenceUnits As Integer = 0
Dim DifferenceTotal As Single = 0
Dim ConnectionString = "provider=sqloledb.1;data source=(local);Connect
Timeout=30;database=H_justindutoit;User
ID=justindutoit;Password=paulpaul;Packet Size=4096;"
Dim Purchases As PurchasesDB = New PurchasesDB(ConnectionString)
Dim Baskets As BasketsDB = New BasketsDB(ConnectionString)
For Counter = 0 To MyDataGrid.Items.Count - 1
txtNumberOfUnits = MyDataGrid.Items(Counter).FindControl("numberofunits")
ThisNumberOfUnits = CInt(txtNumberOfUnits.Text)
OldNumberOfUnits = MyDataGrid.DataKeys(Counter)
DifferenceUnits = ThisNumberOfUnits - OldNumberOfUnits
lblProductNumber = MyDataGrid.Items(Counter).FindControl("productnumber")
ThisProductNumber = CInt(lblProductNumber.Text)
ThisPrice = MyDataGrid.Items(Counter).Cells(2).Text ' <<<<<<<<< Don't
know what this should be
Purchases.UpdatePurchase(BasketNumber, ThisProductNumber,
ThisNumberOfUnits)
If DifferenceUnits > 0 Then
DifferenceTotal = ThisPrice * DifferenceUnits
Baskets.IncreaseTotal(BasketNumber, DifferenceTotal)
Else If DifferenceUnits < 0 Then
DifferenceUnits = -DifferenceUnits
DifferenceTotal = ThisPrice * DifferenceUnits
Baskets.ReduceTotal(BasketNumber, DifferenceTotal)
End If
Next
End Sub
Tks
Justin Dutoit