¿Como sumar columnas en dbgrid?

[djzero]

Hola a todos.
de nuevo yo molestando :P.
quisiera si alguien sabe como sumar columnas de un dbgrid en visual basic 6. enlazadas a un recordset?¿?¿?.
que me arroje el resultado en una textbox.
Teniendo en cuenta que se muestran mas campos en el dbgrid.

gracias

[rafapaskual]

Hola, no se si hay alguna manera mas limpia, pero lo que puedes hacer es un bucle desde 1 (creo recordar que la fila 0 son los títulos) hasta el recordset.recordcount e ir sumando los .text de cada fila, pe:

suma=0
i=1 'empiezo en el uno por el tema de los titulos, miratelo, no recuerdo si es asi.
dbgrid.col=1 'aqui le fijo la columna 1, sumaré los .text de la columna 1 i la fila i
while i<rs.recordcount
dbgrid.row=i
suma=suma+dbgrid.text
wend
text1.text=suma

Espero que te sirva, Saludos!

[ssev13]

Puedes sumarlo directamente del recodset y no del dbgrid.

While not recordset.EOF

suma=suma+recordset!campo1
recordset.movenext

Wend