1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| Private Sub quantite2_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim quantite2 As New DropDownList
quantite2 = CType(sender, DropDownList)
Dim lprixunitaire As Label
Dim lprixproduit As Label
Dim prixtotal As Double
prixtotal = 0
Dim prixproduit As Double
Dim i As Integer
For i = 0 To Request.Cookies.Count
Try
lprixunitaire = New Label
lprixproduit = New Label
quantite2 = New DropDownList
CPH = CType(Master.FindControl("contenu"), ContentPlaceHolder)
lprixunitaire = CType(CPH.FindControl("lblprixunitaire" & i), Label)
lprixproduit = CType(CPH.FindControl("lblprixproduit" & i), Label)
quantite2 = CType(CPH.FindControl("dropnb" & i), DropDownList)
lprixproduit.Text = lprixunitaire.Text * quantite2.Text
prixproduit = lprixproduit.Text
prixtotal = prixtotal + prixproduit
lblprixtotal.Text = prixtotal
Dim aCookie As HttpCookie
aCookie = Request.Cookies(i)
Dim ID As String
ID = aCookie.Name
Response.Cookies(aCookie.Name)("Quantite") = quantite2.Text
Response.Cookies(aCookie.Name)("Prixproduit") = lprixproduit.Text
Response.Cookies(aCookie.Name)("Prixtotal") = lblprixtotal.Text
drop1.Items.Add(ID)
Catch ex As Exception
drop1.Items.Add(ex.Message)
End Try
Next
End Sub |
Partager