Totalizar una Columna en un DataGridView
Siguiendo la consulta de Jesús Pérez, preguntando como totalizar la suma de una columna de un DataGridView, poniendo como ejemplo recorrer las filas de una columna y efectuar las operaciones que consideremos oportunas. Tambien como entrada del post os dejo un aporte gracias a Enrique Martinez, que introduce la funcion explicita y correcta para efectuar sumas en encolumnados de DataGridView's...
Saludos,
Pep Lluis,
Aqui teneis el enlace : http://msdn.microsoft.com/es-es/library/system.data.datatable.compute.aspx
' Computar la suma de la columna 'Capital'
Dim total As Object = dt.Compute("SUM(Capital)", Nothing)
' visualizar el resultado en la barra
Me.Text = total.ToString
A continuacion... recorriendo las filas de la Columna...
.. Handles Me.Load
'Disparar el calculo cada vez que editamos
AddHandler Me.dataGridView1.CellEndEdit, AddressOf Sumar
'Calcular el contenido inicial de la columna
Me.dataGridView1.Columns(3).HeaderText = "Salario"
Me.dataGridView1.AllowUserToAddRows = False
Me.dataGridView1.CurrentCell = dataGridView1.Rows(0).Cells(3)
Sumar()
..
End Sub
'
' Sumar las cantidades de una columna
'
Private Columna As Integer = 3
Sub Sumar()
Dim Total As Integer = 0 'Acumular el total
Dim UltimaFila As Integer = Me.dataGridView1.Rows.Count
'Solo calculamos si modificamos la columna definida
If Me.dataGridView1.CurrentCell.ColumnIndex = Columna Then
For Each row As DataGridViewRow In Me.dataGridView1.Rows
If row.Index < UltimaFila - 1 Then Total += row.Cells(Columna).Value
Next
Me.dataGridView1.Rows(UltimaFila - 1).Cells(3).Value = Total.ToString
End If
End Sub
Pd. No dudeis en pedirme el proyecto completo si estais interesados, o si quereis comentar alguna parte del codigo.