Foro de elhacker.net

        Dim Col1 As Integer = Me.DataGridView1.CurrentCell.ColumnIndex
        Dim Col3 As Integer = Me.DataGridView1.CurrentCell.ColumnIndex
        Dim Col5 As Integer = Me.DataGridView1.CurrentCell.ColumnIndex

        Dim Col1 As Integer = &H1
        Dim Col3 As Integer = &H3
        Dim Col5 As Integer = &H5

Dim Col1 As Integer = &H0I
Dim Col3 As Integer = &H2I
Dim Col5 As Integer = &H4I

        Const ColIndex1 As Integer = &H0I
        Const ColIndex3 As Integer = &H2I
        Const ColIndex5 As Integer = &H4I
 
        Dim totalCol1 As Integer, totalCol3 As Integer, totalCol5 As Integer
 
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
 
            totalCol1 += CType(row.Cells(ColIndex1).Value, Integer)
            totalCol3 += CType(row.Cells(ColIndex3).Value, Integer)
            totalCol5 += CType(row.Cells(ColIndex5).Value, Integer)
 
        Next row
 
        Label4.Text = String.Format("La suma de los valores de la columna 1 es de: {0}", CStr(totalCol1))
        Label5.Text = String.Format("La suma de los valores de la columna 3 es de: {0}", CStr(totalCol3))
        Label6.Text = String.Format("La suma de los valores de la columna 5 es de: {0}", CStr(totalCol5))

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y, i, j As Integer
        Dim tabla(x, y) As Integer
        x = InputBox("digite el numero de filas")
        y = InputBox("digite el numero de columnas")
        With DataGridView1
            .ColumnCount = y
 
            .RowCount = x
 
            .Item(i, j).Value = (i + j)
 
 
 
 
        End With
    End Sub