SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: seether en Martes 14 de Noviembre de 2006, 05:17

Título: Filas Y Sumas
Publicado por: seether en Martes 14 de Noviembre de 2006, 05:17

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:

Título: Re: Filas Y Sumas
Publicado por: F_Tanori en Martes 14 de Noviembre de 2006, 06:23

Sumar?

a ver si esto te sirve

http://foros.solocodigo.com/index.php?show...=15&#entry89253 (http://foros.solocodigo.com/index.php?showtopic=24796&st=15&#entry89253)

:hola:

Título: Re: Filas Y Sumas
Publicado por: Mollense en Martes 14 de Noviembre de 2006, 06:38

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

1. Public Function sumarFilas(ByRef flx1 As MSHFlexGrid, ByVal columnaAEvaluar as Integer, ByVal criterio as String)
2.     suma = 0
3.  
4.     For lrow = 1 To flx1.Rows - 1
5.          if(flx1.TextMatrix(lrow, columnaAEvaluar)=Criterio)then
6.              suma = suma + 1
7.          end if
8.     Next lrow
9.          
10.     sumarFilas = suma
11.    
12. End Function
13.  
14.  

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.

Título: Re: Filas Y Sumas
Publicado por: Mollense en Martes 14 de Noviembre de 2006, 06:43

Perdón.........

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

Hasta la próxima.

Título: Re: Filas Y Sumas
Publicado por: seether en Martes 14 de Noviembre de 2006, 18:09

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

1.  
2. Private Sub Command2_Click()
3. Dim SumaCANT, i As Double
4. For i = 1 To Me.DataGrid1.ApproxCount
5.    SumaCANT = SumaCANT + val(Me.DataGrid1.Columns(5).CellValue(i))
6. Next i
7. Me.TxtTotalCANT.Text = SumaCANT
8. End Sub
9.  
10.  

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: