|
Título: Sumar una columna DBGrid Publicado por: Data_uy en 15 Septiembre 2006, 21:33 pm 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 Título: Re: Sumar una columna DBGrid Publicado por: soplo en 15 Septiembre 2006, 23:13 pm 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 Título: Re: Sumar una columna DBGrid Publicado por: alfa_28 en 17 Septiembre 2006, 20:31 pm 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.......... |