Como sumar una columna Msflexgrid - VB-MUNDO

data_uy · #1 (**permalink**) 10-09-2006, 01:53:02

Que tal a todos, mi consulta es como sumar una columna ??

Muchas gracias
Esteban

jrios03 · #2 (**permalink**) 10-09-2006, 02:45:03

Te doy un ejemplo de mostrar la suma de dos columnas en la tercera, espero que te sirva...

Código:

Grilla.TextMatrix(1,3) = Val(Trim(Grilla.TextMatrix(1,1))) + Val(Trim(Grilla.TextMatrix(1,2))

De esa forma muestras la suma de las dos primeras columnas en la tercera...

Nota que puse los valores de las columnas dentro de un Trim, esto es por si existiese algún espacio... y con la Función Val los transformo a un valor numérico para poder sumarlos...

Saludos... y espero haber resuelto tu consulta...sino es así, por favor explícate más que es lo que deseas hacer, y con gusto te ayudaré...

:smt004 :smt004 :smt004

data_uy · #3 (**permalink**) 11-09-2006, 18:03:11

Te pido mil disculpas, me equivoque de comando, estoy usando DBGrid!!!

Me podes decir porque me suma mal???

Muchas gracias

Private Sub Calcular_Click()
Dim I, Val1 As Integer
Dim Formato As String
Pagos.Text = " "
Formato = "###,####.00"
Correcto = MsgBox("DESEA CALCULAR EL MONTO....", vbYesNo, "CALCULAR EL PAGO")
If Correcto = vbYes Then
On Error Resume Next
For I = 0 To DBGrid1.ApproxCount - 1
DBGrid1.Row = I
Val1 = Format(Val1 + DBGrid1.Columns(14), Formato)
Next I
Pagos.Text = Format(Val1, Formato)
Else
Unload Me
End If
Calcular.Enabled = False
End Sub

P.D (lo chequeamos con un amigo, le damos vuelta y nada)

acalanto · #4 (**permalink**) 11-09-2006, 18:24:15

Tienes dos errores básicos:

a) Declaras Val1 como Integer mientras que tratas un acumulado que seguramente tiene decimales y que además puede superar el valor de 32767 que es el máximo positivo que admite un tipo entero.

b) Asignas a Val1 la cadena de formato que es un tipo String

Desconozco si la columna 14 existe, pero en cualquier caso prueba este código que es más correcto que el que tratas de utilizar.

Código:

Private Sub Calcular_Click() 
    Dim I as integer, 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 + val(DBGrid1.Columns(14)) 
         Next I 
         Pagos.Text = Format(Val1, Formato) 
    Else 
        Unload Me 
    End If 
    Calcular.Enabled = False 
End Sub

Espero que te resulte útil.

PD: Si la sentencia val(DBGrid1.Columns(14)) no te devuelve el valor correcto del contenido de la columna 14, prueba a transformarlo en un tipo Double con cDbl(DBGrid1.Columns(14))

data_uy · #5 (**permalink**) 11-09-2006, 19:35:16

Mil gracias, mil gracias

con Val le faltaba 2,65 nose porque

Pero probe cDbl y sumo perfecto, muchas gracias

Se puede hacer algo asi, pero para MsflexGrid???

J.M.Movilla · #6 (**permalink**) 11-09-2006, 20:37:27

Puedes hacerlo perfectamente: sólo que tienes que cambiar algunas cosas, porque en MsFlexGrid no existen las propiedades .ApproxCount ni .Columns y tendrás que cambiarlo por

Código:

    With MSFlexGrid1
        For i = 1 To .Rows - 1
            .Row = i
            .Col = 14
            Val1 = Val1 + cDbl(.Text) 
        Next
    End With

data_uy · #7 (**permalink**) 13-09-2006, 14:06:39

acalanto, La verad que cuando son muchos registros me suma mal.

que puede ser?

Gracias
Esteban

J.M.Movilla · #8 (**permalink**) 13-09-2006, 17:53:08

Ya te advierte Acalanto:

Código:

Si la sentencia val(DBGrid1.Columns(14)) no te devuelve el valor correcto del contenido de la columna 14, prueba a transformarlo en un tipo Double con cDbl(DBGrid1.Columns(14))

¿Has probado a modificar esa línea?

data_uy · #9 (**permalink**) 13-09-2006, 19:41:08

J.M.Movilla, si ya he probado, y esta funcionado con este 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
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

pero parece que si son muchos le pifea!!!

acalanto · #10 (**permalink**) 13-09-2006, 20:55:09

Seguramente el problema reside en la precisión y presentación de las cifras. Si en cada línea del grid calculas y no redondeas a dos decimales, es probable que el resultado representado sea 2.54 y el calculado 2.53678.

Si son muchas las filas del grid irás acumulando errores y al final, si sumas lo que aparece en pantalla y el resultado calculado, sean diferentes, por poco pero diferentes.