Programación General > Visual Basic 6.0 e inferiores

 Filas Y Sumas

(1/1)

seether:
Hola programadores de solocodigo, necesito de su ayuda nuevamente, mi consulta es la siguiente:

Necesito ver la posibilidad de sumar unas filas de un datagrid, a modo de ejemplo, sumar las filas de una determinada fecha, asi como sumar las filas del dia 13 de noviembre.

o ver alguna otra posibilidad de que se pueda hacer.
Saludos

Seether :smartass:

 :comp:

F_Tanori:
Sumar?

a ver si esto te sirve

http://foros.solocodigo.com/index.php?show...=15&#entry89253

:hola:

Mollense:
Hola seether, no te entiendo muy bien pero te digo..........

Si querés hacer la sumatroria de los valores de un campo determinado que cumplan con algún criterio o contar cuantas filas poseen un determinado valor, podés realizar un sum() o un count() en una consulta a la DB.

Si de todas formas querés recorrer todo el DataGrid, este es un ejemplo que cuenta cuantas filas poseen el valor "criterio" en la columna "columnaAEvaluar".


--- Código: Text ---Public Function sumarFilas(ByRef flx1 As MSHFlexGrid, ByVal columnaAEvaluar as Integer, ByVal criterio as String)    suma = 0     For lrow = 1 To flx1.Rows - 1         if(flx1.TextMatrix(lrow, columnaAEvaluar)=Criterio)then             suma = suma + 1         end if    Next lrow             sumarFilas = suma    End Function  
Podés adaptar este ejemplo para lo que quieras hacer porque te repito que no te entiendo bién lo que querés hacer.

Saludos.

Mollense:
Perdón.........

Me olvidé. Yo no uso "DataGrid", utilizo "MSHFlexGrid" que es mucho mas flexible.

Hasta la próxima.

seether:
Claro, como lo dijo Angel k ido, tengo que sumar las filas segun el criterio, en este caso, la "fecha".

Lo que he hecho ahora, con lo que me dio Francisco, me suma toda la columna con este codigo

--- Código: Text --- Private Sub Command2_Click()Dim SumaCANT, i As DoubleFor i = 1 To Me.DataGrid1.ApproxCount   SumaCANT = SumaCANT + val(Me.DataGrid1.Columns(5).CellValue(i))Next iMe.TxtTotalCANT.Text = SumaCANTEnd Sub  
Solo me hace falta sumar con un criterio, en mi caso, la celda que tiene el criterio es fecha y hora "(14/11/2006 14:07:47)", De lo necesito tomar solo la fecha, por ejemplo el dia 14.


Seether :smartass:


 :comp:

Navegación

[0] Índice de Mensajes