Cita:
Iniciado por Avellaneda 
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
muchisimas gracias por la pronta respuesta y la ayuda pero ay cosas que no entiendo rs.open "para que sirve"
estoy en la tercera semana de visual y no me enseñaron ese comando
esto es una parte de lo que planeo hacer lo subi mi proyecto aqui
Cita: http://rapidshare.com/files/162451434/TRABAJO.rar.html
como ves en la imagen ay un combobox con los productos y cada producto tiene su precio el que se muestra en el text1.
doy click en adherir y agrega en los listbox.
Asi es mi proyecto
Cita: Private Sub Combo1_Click()
Select Case Combo1.Text
Case "CUADERNO"
Text1.Text = "7.10"
Case "LAPICERO"
Text1.Text = "3.50"
Case "REGLA"
Text1.Text = "2.8"
Case "PERFORADOR"
Text1.Text = "5.50"
Case "TARJADOR"
Text1.Text = "2.10"
End Select
End Sub
Private Sub Command1_Click()
List1.AddItem (Text1.Text)
List2.AddItem (Combo1.Text)
End Sub
como puedo lograr que sume la list2, digamos adheri tres productos"pueden ser mas o menos" con su respectivo precio y dando click que sume la list2 y se muestre en label1.caption y luego el % en label4 y la suma de los dos label1+label4 se muestre en label6.caption
Disculpa por confundirte o no dejarme entender y esperando que me comprendas y me des una ayudita en esto
Gracias