15/09/2006, 09:18
|
| | | Fecha de Ingreso: junio-2006
Mensajes: 5
Antigüedad: 18 años, 10 meses Puntos: 0 | |
| Necesito una ayudita
Yo quiero sumar todo la fila de un MSFLEXGRID, yo utilizo este codigo, pero
me suma mal, cuando son muchos registros.
Private Sub Calcular_Click()
Dim I As Integer
Dim Val1 As Double
Dim Formato As String
Pagos.Text = " "
Formato = "###,####.00"
If MsgBox("DESEA CALCULAR EL MONTO....", vbYesNo, "CALCULAR EL PAGO") = vbYes Then
On Error Resume Next
For I = 0 To DBGrid1.ApproxCount - 1
DBGrid1.Row = I
Val1 = Val1 + CDbl(DBGrid1.Columns(14))
Next I
Pagos.Text = Format(Val1, Formato)
Else
Unload Me
End If
Calcular.Enabled = False
End Sub
Muchas Gracias |