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
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
fuente para su descarga
http://www.mediafire.com/?umnz2hnwmzr
puede comentar