Sumar una columna DBGrid

Iniciado por Data_uy, 15 Septiembre 2006, 21:33 PM

0 Miembros y 1 Visitante están viendo este tema.

Data_uy

Estoy con este codigo para sumar la columna 14 de un DBgrid
pero me sale este error:

NUMERO DE FILA INCORRECTO

MI CODIGO:

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
         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

LUEGO UTILIZO LE AGREGUE ESTE CODIGO :

On Error Resume Next

Y no me sale el error, PERO ME SUMA MAL CUANDO PASO DE 15 Registros +/-

Alguna idea, Gracias
Esteban

soplo

Hola
Approxcount te cuenta el número de filas APROXIMADAMENTE.

Si quieres saber cuantas filas tienes es mejor que cuentes cuantos registros tienes con recordcount.

La otra opción es que hagas una consulta de totales y escribas el resultado.

Un saludo
Callar es asentir ¡No te dejes llevar!

alfa_28

hola que tal si sale la suma
pero te dire una cosa:
el numero de campos de la tabla digamos que tiene 15 y tu quieres sumar la columna 10 por lo cual no saldra la suma correcta porque el conteo empieza del 0  por lo tanto  tiene que ser 10-1=9 eso es asi y te saldrá

espero que te salga saludos..........