Cita:
Iniciado por elizabeth1 
Hola chic@s necesito de su ayuda por que soy novata en visual basic"estoy en curso basico
", estoy creando un proyecto de facturación
tengo problemas en lo siguiente:
cree un list box en el cual con un boton ingresa el costo del producto seleccionado
de un combobox"en el mismo agregue una lista de productos":
- Pongo el caso que selecciono un producto "x" al hacer click en un comandbuton adhiere el precio en el lisbox"en texto" digamos "50" euros, agregando varios productos con sus respectivos precios, como hago para sumar el contenido del lisbox.text mostrandolo en una label y luego poder sacar su x% del total en otra label usando otro comandbuton para ello
me olvidaba y que tenga dos decimales "50.00"
Agradeciendo de antemano su cordial ayuda
usando visual basic 6
Hola, supongo que los datos salen de una tabla llamada 'productos'.
Lo primero sería crear un recordset con el producto seleccionado, listar los registros en un control ListBox y después sumarlos.
Mira si te sirve este código
Código:
Private Sub Command1_Click()
rs.Open "SELECT precio FROM productos WHERE producto = '" & Combo1.Text & "'", conexion
Do Until rs.EOF
List1.AddItem rs(0)
rs.MoveNext
Loop
Dim suma As Double
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
suma = suma + Val(List1.Text)
Next i
Label1.Caption = Format(suma, "#,##0.00")
' no sé muy bien a qué te refieres con 'sacar su x% del total' ¿el promedio?
Label2.Caption = Format(suma / List1.ListCount, "#,##0.00")
End Sub
