Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Una Pregunta Simple Alguien Sabe Como Sumar Columnas En ColumnView (solucionado)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Una Pregunta Simple Alguien Sabe Como Sumar Columnas En ColumnView (solucionado) 
 
buenas a amigos estoy con este problema a ver quien me puede ayudar o guiar es que
quiero es sumar una columnas especifica  en un ColumnView alguien que me pueda ayudar
con este problema
 



 
última edición por alexprox el Jueves, 18 Marzo 2010, 21:14; editado 1 vez 
alexprox - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Una Pregunta Simple Alguien Sabe Como Sumar Columnas En ColumnView 
 
Bueno aqui te hice un ejemplo de como sumarla

Para bajar el ejemplo aqui te dejo el link
Bajar ejemplo

'Debes crear en el formulario la Columnview1

DIM i AS Integer 'Variable para ciclo For
DIM valor AS Float 'Variable para almacenar la suma de una columna
ColumnView1.Columns.Count = 2 'Cantidad de columnas ColumnView1
ColumnView1.Columns[0].Width = 200 'Ancho de la Primera columna
ColumnView1.Columns[1].Width = 200 'Ancho de la Segunda columna
ColumnView1.Add(0, 20) 'Agrega 20 en la primera fila de la primera columna
ColumnView1[0][1] = "Jose" 'Agrega Jose a la primera fila de la segunda columna
ColumnView1.Add(1, 18)
ColumnView1[1][1] = "Alexpro"
ColumnView1.Add(2, 40)
ColumnView1[2][1] = "Gambas-es"
FOR i = 0 TO ColumnView1.Columns.Count 'Ciclo para repetir las cantidad de filas que ahi en el Columnview
valor += ColumnView1[i].Text 'Suma de la primera fila
ColumnView1.MoveNext 'Mueve el siguiente dato
NEXT
Message.Info(valor) 'Envia un mensaje del valor de la columna

 


En el post Este Ahi mas informacion sobre la ColumnView Puedes pasarte a verla..!!!


Espero haberte ayudado y suerte
 



 
chen_08 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Una Pregunta Simple Alguien Sabe Como Sumar Columnas En ColumnView 
 
gracias amigo funciona de maravilla pero tengo otro ploblema que no entiendo a ver si tu lo puede solucionar bien aqui esta ya hice que sumara dentro es decir otra columna perfecto suma bien y todo lo maximo el problema esta cuando quiero ponerle mas registro al existente es decir sumarle otro pero pun meda la sumatoria anterior asi ponga 100 mas aque esta el codigo  y el ejemplo

' gambas class file

PUBLIC i AS Integer

PUBLIC SUB Button1_Click()

ColumnView1.Columns[0].Width = 200
ColumnView1.Columns[1].Width = 200
ColumnView1.Columns[2].Width = 200
ColumnView1.Add(0, "jose")
ColumnView1[0][1] = "20"
columnView1[0][2] = "20"
ColumnView1.Add(1, "Alexprox")
ColumnView1[1][1] = "20"
columnView1[1][2] = "20"
ColumnView1.Add(2, "gambas")
ColumnView1[2][1] = "20"
columnView1[2][2] = "25"
ColumnView1.Add(3, "gambass")
ColumnView1[3][1] = "30"
columnView1[3][2] = "30"

END

PUBLIC SUB Button2_Click()
DIM i AS Integer
DIM valor AS Float
FOR i = 0 TO ColumnView1.Columns.Count
valor += ColumnView1[i][1]
ColumnView1.MoveNext
NEXT
Message.Info(valor)

END
PUBLIC SUB Button3_Click()
i = i + 4
  ColumnView1.Add(i, TextBox2.Text)
  ColumnView1[i][1] = TextBox3.Text
  ColumnView1[i][2] = TextBox4.Text
END

PUBLIC SUB Form_Open()

  ColumnView1.Columns.Count = 3

END



http://www.mediafire.com/?00ikftyfkem
 



 
alexprox - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Una Pregunta Simple Alguien Sabe Como Sumar Columnas En ColumnView 
 
Bueno amigo aqui te dejo el codigo listo ahora si
El error estaba al usar en el ciclo for
FOR i = 0 TO ColumnView1.Columns.Count

"ColumnView1.Columns.Count" Esto contaba las columnas que habian en este caso habian 3 es decir que i valia 0 despues 1 despues 2 y por ultimo 3.
Y entonces se movia cuatro veces solamente hacia abajo ( se movia las filas 4 veces )..!! Por eso dejava el ultimo valor sin sumar..!! porque en realidad habian mas..!!

imagenlk

Y realmente "ColumnView1.Columns.Count" solo contaba la columnas y no la filas que son las que necesitamos para movernos y sumar los datos..!
Por eso entonces cambie el ciclo for a

FOR i = 0 TO (ColumnView1.Count - 1) 'Ciclo para repetir las cantidad de filas que ahi en el Columnview
valor += ColumnView1[i][1] 'Suma de la primera fila
ColumnView1.MoveNext 'Mueve el siguiente dato
NEXT
Message.Info(valor)
 


Al utilizar "ColumnView1.Count" cuenta las filas que existe pero la cuenta desde 1 es decir que si ahi 6 fila y usas ColumnView1.Count te contara 7 por eso puse el (ColumnView1.Count - 1) ..!! siempre hay que restarle uno

Tambien cambie el

PUBLIC SUB Button3_Click()
  DIM c AS Integer
  c = (columnView1.Count) 'Cuenta cuantas filas existen desde el 1, en este caso no ahi que restarle ya que la siguiente fila es la que usaremos
  ColumnView1.Add(c, TextBox2.Text)
  ColumnView1[c][1] = TextBox3.Text
  ColumnView1[c][2] = TextBox4.Text
END
 


Espero que ahora si te funcione todo te dejo el programa listo  
Descargar
 



 
chen_08 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Una Pregunta Simple Alguien Sabe Como Sumar Columnas En ColumnView 
 
exelente amigo buena formula (yo esta cerca también pero necesitaba un poco mas de ayuda gracias) no te molestara si publico esto en codigo fuente para que la persona que lo necesite lo use ha claro con su respectivo autor ya le cambio el nombre a solucionado pronto publico que estoy haciendo
 



 
última edición por alexprox el Jueves, 18 Marzo 2010, 21:16; editado 1 vez 
alexprox - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Una Pregunta Simple Alguien Sabe Como Sumar Columnas En ColumnView (solucionado) 
 
Oks..! No ahi ningun problema..!!    Despues Richar Stallman se pone brabo..! jajajaja..!! Me mandas un privado cuando publiques el tema para dar un vistaso   ..!!
Saludos..!! Cualquiera cosa me mandas un privado para chat si necesitas algo..!!
 



 
chen_08 - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario