Visual Basic.NET - Sumar valores de un DataGridView

 
Vista:

Sumar valores de un DataGridView

Publicado por Dario (1 intervención) el 07/02/2016 23:52:33
Hola Gente, tengo el sig. código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub datacartera_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles datacartera.CellContentClick
        If e.ColumnIndex = Me.datacartera.Columns.Item("enviar").Index Then
            Dim chkcell As DataGridViewCheckBoxCell = Me.datacartera.Rows(e.RowIndex).Cells("enviar")
            chkcell.Value = Not chkcell.Value
 
            For Each row As DataGridViewRow In datacartera.Rows
                Dim marcado As Boolean = Convert.ToBoolean(row.Cells("enviar").Value)
 
                If marcado Then
                    Dim valores As Decimal = 0D
                    Dim total As Decimal = 0D
 
                    For Each dgvr As DataGridViewRow In Me.datacartera.Rows
                        Dim suma_marcado = Convert.ToString(row.Cells("monto").Value)
 
                        'Eliminamos los puntos
                        suma_marcado = Replace(suma_marcado, ".", "")
 
                        'Reemplazamos las comas
                        suma_marcado = Replace(suma_marcado, ",", ".")
 
                        valores += Val(suma_marcado)
                    Next
                    total = valores
                    ltotal.Text = total.ToString("#0.00")
                End If
            Next
        End If
    End Sub

A medida que voy marcando las filas desde la columna Enviar (Tipo: CheckBox) quiero sumar los valores de la columna Monto y que el resultado lo devuelva al ltotal, que se sumen unicamente las filas que fueron marcadas con el CheckBox. Según mi codigo el resultado que obtengo no los suma correctamente. Podrian decirme en donde tengo el error, pasar código por favor.
Muchas gracias a todos
Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder