Sumar valor en listbox
Tengo 4 listbox que le agrego estos datos de un combobox y cajas de texto
Producto / cantidad / precio / importe
atún 1 20.00 20.00
leche 3 10.00 30.00
aceite 2 5.00 10.00
y esto lo realizo con este código
Me. ListBox1. Items. Add(Me. ComboBox2.Text)
Me. ListBox2. Items. Add(Me. TextBox4.Text)
Me. ListBox3. Items. Add(Me. TextBox3.Text)
Me. ListBox4. Items.Add(Val(Me. TextBox3.Text) * Val(Me. TextBox4.Text))
Como veras el código que tengo lo único que hace es agregar si vuelvo agregar el mismo producto por ejemplo 2 aceite mas lo sigue agregando y saldrá así
Producto / cantidad / precio / importe
atún 1 20.00 20.00
leche 3 10.00 30.00
aceite 2 5.00 10.00
aceite 2 5.00 10.00
La idea esta que si el producto ya esta en el lisboxt entonces que sume solo la cantidad y por supuesto el importe
debería ser así:
producto / cantidad / precio / importe
atún 1 20.00 20.00
leche 3 10.00 30.00
aceite 4 5.00 20.00
No importando la fila que se encuentre el producto
Tratando de realizar esto pude evitar que se siga agregando mas productos repetidos con este código
Dim count As Integer = Me.ListBox1.Items.Count()
Dim por As Integer = 0
For por = 0 To count - 1
If ComboBox2.Text = Me.ListBox1.Items.Item(por) Then
MsgBox("Registro ya registrado", MsgBoxStyle.Information, "Mensaje")
--Como hago aquí para que me sume la cantidad que hay con la cantidad que le estoy agregando y la otra operación del importe no importando en que fila se encuentre el producto
Exit Sub
Else
End If
Next
Como veras no estoy seleccionado ninguna fila la comparación lo hago de la lista de los productos que se encuenta en el combo box2