Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/04/2010, 06:45
Avatar de XYON126
XYON126
 
Fecha de Ingreso: abril-2006
Mensajes: 272
Antigüedad: 18 años
Puntos: 0
Sumar filas en un MSFlexgrid

hola!

Tengo un Msflexgrid y quiero sumar todas las celdas de una Fila, he realizado este codigo pero me da el error de "No coinciden los datos" el codigo es este :

Código vb:
Ver original
  1. ' ---------------------------------------------------------------------------
  2. ' \\ -- Funición sumar totales diarios.
  3. ' ---------------------------------------------------------------------------
  4.  
  5. Private Sub sumar()
  6.          
  7.          Dim Columna As Integer
  8.          Dim total As Date
  9.          
  10.          
  11. With MSFlexGrid
  12.              For Columna = 0 To .Cols - 1
  13.                  ' Sumar, obteniendo el valor de la celda con TextMatrix
  14.                 total = total + .TextMatrix(7, Columna)
  15.              Next
  16. End With
  17.  
  18.  
  19. ' retornar el total de la suma a la función
  20. Totalhoras_C = total
  21.  
  22. End Sub


y naturalmente Totalhoras_C tambien es "Dim Totalhoras_C As Date" por lo que no entiendo lo del error ¿Porque para extraer los datos de un Msflexgrid se hace asi?

Ah! Por cierto la fila que deseo sumar es la 8ª es decir la número 7.

Muchas gracias.