• Viernes 8 de Noviembre de 2024, 19:13

Autor Tema:  Filas Y Sumas  (Leído 1962 veces)

seether

  • Miembro activo
  • **
  • Mensajes: 52
  • Nacionalidad: cl
    • Ver Perfil
Filas Y Sumas
« en: Martes 14 de Noviembre de 2006, 05:17 »
0
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

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Filas Y Sumas
« Respuesta #1 en: Martes 14 de Noviembre de 2006, 06:23 »
0
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Filas Y Sumas
« Respuesta #2 en: Martes 14 de Noviembre de 2006, 06:38 »
0
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.
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Filas Y Sumas
« Respuesta #3 en: Martes 14 de Noviembre de 2006, 06:43 »
0
Perdón.........

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

Hasta la próxima.
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

seether

  • Miembro activo
  • **
  • Mensajes: 52
  • Nacionalidad: cl
    • Ver Perfil
Re: Filas Y Sumas
« Respuesta #4 en: Martes 14 de Noviembre de 2006, 18:09 »
0
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: