Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Sumar Columnas En ColumnView
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje Sumar Columnas En ColumnView 
 
buenas amigos gamberos esta ves le traigo codigo interesante creado por chen_08 y editado y subido por alexprox yo jeje
bueno ens algo simple pero util para lo que quieren hacer una factura o algo parecido o para sacar cuentas de materiales en fin para el que lo quiera

bueno como norma
Ubuntu 9.10
gambas 2.13
Gnome
por defectos

bueno creo que todo me puede correguir

aquí esta su codigo fuente completo

'
' gambas class file

PUBLIC SUB Button1_Click()

   'Cantidad de columnas ColumnView1
  ColumnView1.Add(0, "jose") 'Agrega 20 en la primera fila de la primera columna
  ColumnView1[0][1] = "20" 'Agrega Jose a la primera fila de la segunda columna
  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 'Variable para ciclo For
  DIM valor AS Float 'Variable para almacenar la suma de una columna
  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("Suma de la columna 2 = " & valor)
  
END


PUBLIC SUB Form_Open()
  
  ColumnView1.Columns.Count = 3
  ColumnView1.Columns[0].Width = 200 'Ancho de la Primera columna
  columnView1.Columns[0].Text = "Columna 1" 'Nombre de la Columna 1
  ColumnView1.Columns[1].Width = 200 'Ancho de la Segunda columna
  columnView1.Columns[1].Text = "Columna 2" 'Nombre de la Columna 2
  ColumnView1.Columns[2].Width = 200 'Ancho de la Segunda columna
  columnView1.Columns[2].Text = "Columna 3" 'Nombre de la Columna 3
  
  
END

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] = ValueBox1.Text
  ColumnView1[c][2] = ValueBox2.Text
  TextBox2.Clear
  ValueBox1.Clear
  ValueBox2.Clear
END
 



imágenes

thump_4235200pantallazo


fuente para su descarga

http://www.mediafire.com/?umnz2hnwmzr

puede comentar
 



 
alexprox - 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
7.00 4 10 2
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Una Pregunta Simple Alguien Sabe Como Suma... alexprox General 5 Viernes, 19 Marzo 2010, 00:28 Ver último mensaje
chen_08
No hay nuevos mensajes Sumar Campos De Un Dataview pittusa Aplicaciones/Fragmentos de Código 4 Miercoles, 20 Junio 2012, 17:09 Ver último mensaje
luisrel
No hay nuevos mensajes Error Al Sumar ColumnView JOSEPH General 6 Miercoles, 29 May 2013, 21:10 Ver último mensaje
shordi
No hay nuevos mensajes La Clase ColumnView Tiene Limitacion De Co... v3ctor General 1 Domingo, 22 Marzo 2015, 12:19 Ver último mensaje
jsbsan
 

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