Suma grid segun filtro

[guillebomtrasmiti]

SOLUCIONADO¡¡¡, lo pongo por si a alguien le interesa, soy un crack...jejeje

Public Sub sumatotal8()
Dim total As Decimal = 0
For Each row As DataGridViewRow In DgTotales.Rows
If row.Cells(4).Value IsNot Nothing Then
If row.Cells(6).Value IsNot Nothing Then
Dim iva As String = CType(row.Cells(6).Value, String)
If iva = "8" Then
End If
End If
Dim s As String = CType(row.Cells(4).Value, String)
DgTotales.Columns.Item("NombreFormaPago").DefaultC ellStyle.ForeColor = Color.Peru
If s <> "TARJETA CREDITO" Then
total = CDec(total + Val(row.Cells(1).Value) * Val(row.Cells(2).Value))
LbEfe8.Text = CStr(total.ToString("#,##0.00€"))
End If
End If
Next