QTY-QUANTITY
The Price is not increasing.
I want to multiply the QTY to PRICE , when QTY is Increasing The PRICE need to increase to depends on the QTY.
Private Sub clickMe(sendr As Object, ByVal e As EventArgs)
Dim btn As Button = CType(sendr, Button)
Dim ProdMatch As Boolean = False
For i As Integer = 0 To lvorder.Items.Count() - 1
If lvorder.Items(i).SubItems(1).Text = btn.Text Then
lvorder.Items(i).Text = (Val(lvorder.Items(i).Text) + 1).ToString
ProdMatch = True
Exit For
End If
Next
If Not ProdMatch Then
'Add the item at first time
Dim item As ListViewItem
item = lvorder.Items.Add("1")
item.SubItems.Add(btn.Name)
item.SubItems.Add(Val(item.SubItems(0).Text) * btn.Tag.ToString())
lblstotal.Text = "0.00"
End If
txtcash.Text = ""
End Sub