Private Function SumarToria(ByVal indiceColumna As Integer) As Decimal
Dim query As IEnumerable(Of Object) = _
From row As DataGridViewRow In DataGridView1.Rows.Cast(Of DataGridViewRow)() _
Where ( _
(row.Cells(indiceColumna).Value IsNot Nothing) AndAlso _
(row.Cells(indiceColumna).Value IsNot DBNull.Value) _
) Select row.Cells(indiceColumna).Value
Return query.Sum(Function(row) Convert.ToDecimal(row))
End Function
EFRAIN MEJIAS C VALENCIA - VENEZUELA