Sumar Columnas del MSHFlexGrid - VB-MUNDO

El_Principiante · #1 (**permalink**) 27-03-2008, 16:05:46

Hola que tal, ahora mi consulta o mi problema es el siguiente.

Tengo una base de datos que manejo en Access 2003, hago la conexión con ADODB y tengo visual basic 6.0
Tengo un MSHFlexGrid donde cargo los datos que acontinuación se ven en la imagen adjunta eso no es el problema el problema es que quiero sumar la columna de pagos. y ponerlo en el mismo MSHFlexGrid y agregar la palabra TOTAL obviamente, alguna forma por favor. si no me explique ya me lo diran.

El_Principiante · #2 (**permalink**) 27-03-2008, 19:24:24

Antes que nada perdon por la imagen no me fije y no pense que estuviera tan grande asi que mil disculpas y con respecto a la ayuda que estoy solicitando ya no se molesten, ya tengo solucionado mi problema solo tube que agregar dos lineas en el mshflexgrid y poder manipularlo y todo listo pongo algo del codigo de ejemplo por si alguien le sirve la ayuda posteriormente:

1.- Primero tengo que agregar los registros asi.

Código:

c = 1
    While rs.EOF = False
        MSHFlexGrid1.TextMatrix(c, 0) = c
        'le damos formato a las celdas que se van a mostrar. como son los pagos
        MSHFlexGrid1.TextMatrix(c, 10) = Format(rs.Fields(10), "$ #,##0.00")
        c = c + 1
        rs.MoveNext
    Wend

2.- ahora agregamos dos filas mas para colocar lo que queremos

Código:

    MSHFlexGrid1.AddItem ""
    MSHFlexGrid1.AddItem ""

3.- y por ultimo agregamos la palabra TOTAL y la Suma

Código:

    MSHFlexGrid1.TextMatrix(c + 1, 8) = "TOTAL"
    MSHFlexGrid1.TextMatrix(c + 1, 10) = Format(Sumar(MSHFlexGrid1, 10), "$ #,##0.00")

Sobra decir que la palabra Sumar es una función que se creo para tal efecto es decir sumar la columna numero 10 que es la que nos interesa.

Espero que le sirva a mas de uno y gracias por la ayuda prestada.

seba123neo · #3 (**permalink**) 27-03-2008, 23:10:35

Hola,mira aca tenes una funcion para sumar los valores de una columna,solo le tenes que pasar como parametro en numero de la columna....

Simple Código fuente de ejemplo para sumar una columna en un control MsFlexGrid o Hierarchical Flex

saludos.