Código: Seleccionar todo

' 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