10/11/2008, 10:41
|
| Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 3 meses Puntos: 37 | |
| Respuesta: ayuda en proyecto
Cita:
Iniciado por elizabeth1  Gracias por responder pronto y hacerme entender para que sirve el open recordset y perdonen por no dejarme entender 
Sabes ise lo que me mensionas pero no logra sumar lo ise asi
Que hago mal q no logro que funcione  Añade este código a tu proyecto
Código:
Private Sub Command2_Click()
' este es el botón "GENERAR TOTAL"
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")
Label4.Caption = Format(suma * 0.13, "#,##0.00")
Label6.Caption = Format(suma + (suma * 0.13), "#,##0.00")
End Sub
 |