Suma grid segun filtro

[guillebomtrasmiti]

Hola amigos, desde mi habitación de hotel dónde paso unos días de vacaciones debo tratar de aparcar a mis hijos para programar...así es que me encuentro con un problema, tengo un datagridview...fácil..en el cargo los datos que yo deseo a través de un datetimepicker...y luego hago una suma la cual la hago reflejar en un textbox que tengo...la suma es la multiplicación de dos campos...hasta ahí todo bien...PERO tengo un campo TARJETA CREDITO que está en algunas celdas de la columna denominada ("NombreFormaPago")...y necesito que no me tenga en cuenta esas celdas...alguna ayuda?¿?, este es mi código;


Dim total As Decimal = 0

For Each row As DataGridViewRow In DgTotales.Rows
total = CDec(total + Val(row.Cells(1).Value) * Val(row.Cells(2).Value))
Next

conexion.Open()

Textgrantotal.Text = CStr(total.ToString("#,##0.00"))
conexion.Close()

HOLA SUPER AQUAAAA

[Ka0stj]

Asi como estas recorriendo los rows puedes verificar si el Row que estas realizando la operación es de cierto tipo de pago y lo descartas.

[Aquaventus]

Hola Guille! Provecho con esas vacaciones..!! yo las necesito urgente bueno... No entiendo la parte que mencionas

PERO tengo un campo TARJETA CREDITO que está en algunas celdas de la columna denominada ("NombreFormaPago")...

explicate un poco mejor para poder ayudarte. Saludos!.

[guillebomtrasmiti]

que rapidez...gracias por responder tan rápido, bueno pos me explico mejor
datagridview que tiene
columna cantidad, columna euros y columna nombreformapago....bien
en nombreformapago aparece TARJETA CREDITO Y EFECTIVO...y otras más...vale quier que sume todas menos las que ponen TARJETA CREDITO...
a ver si me expliqué bien ahora...

SOLICITO URGENTE DEJEN A SUPER AQUAAAA IRSE DE VACACIONES A ESPAÑAAAAAA..ESTA INVITAO A MI CASA jejeje :))

[guillebomtrasmiti]

AMIGO ka0stj...tu respuesta me deja igual, es que no se como poder hacerlo tal cual lo tengo hecho ahora...no se hacer el filtro estoy acostumbrado a utilizar sentencias sql para todo y así me hago un lío

[Ka0stj]

jajaja todo tuyo pues Aquaventus

[Aquaventus]

jajaja gracias Ka0stj nunca cambias ¬¬ jajaja

[Aquaventus]

Bien guille en tu iteracion del For deberias hacer un If como este :

Código vb.net:

For Each row As DataGridViewRow In DataGridView1.Rows
            'Aqui filtras que solo sumaras aquellos campos que se llamen EFECTIVO
            If row.Cells("NombreFormaPago").Value.Equals("EFECTIVO") Then
                total = CDec(total + Val(row.Cells(1).Value) * Val(row.Cells(2).Value))
            End If
 
        Next
 

Espero haberte ayudado. Saludos! .

[guillebomtrasmiti]

algo no explique bien....los campos son EFECTIVO....Y otros nombres, por lo cual esto no me vale, yo ya lo había hecho...más bien el tema es poder decirle <> de TARJETA CREDITO pero no se hacerlooooooooooo¡¡¡
gracias por la rápidez super aqua.....DE MAYOR QUIERO SER COMO TU...JAJAJAJAJAJA

[Aquaventus]

entonces seria asi :

Código vb.net:

For Each row As DataGridViewRow In DataGridView1.Rows
            'Aqui filtras que solo sumaras aquellos campos que NO se llamen "TARJETA CREDITO"
            If Not row.Cells("NombreFormaPago").Value.Equals("TARJETA CREDITO") Then
                total = CDec(total + Val(row.Cells(1).Value) * Val(row.Cells(2).Value))
            End If
        Next
 

Espero haberte ayudado. Saludos! .

[guillebomtrasmiti]

TU SIEMPRE AYUDAS AQUA...algún día yo te ayudaré a ti...seguro....hablaremos pronto...el lunes estoy de vuelta amigo....voy a probarlo gracias como siempre eres el mejor.....ABRAZOSSS

[Aquaventus]

Gracias!. Lo pruebas y me comentas. Saludos!

[guillebomtrasmiti]

Column named NombreFormaPago cannot be found.
Parameter name: columnName

por qué me da este error?, super aqua esto es la pera...aquí pasan cosas raras...en mi tierra se dice que hay meigas....TRADUCCIÓN hay brujas...ABRAZOS

[Aquaventus]

prueba donde dice "nombreformapago" pone el indice de la columna.

Código vb.net:

For Each row As DataGridViewRow In DataGridView1.Rows
            'Aqui filtras que solo sumaras aquellos campos que NO se llamen "TARJETA CREDITO"
            'Donde X es el indice de la columna
            If Not row.Cells(X).Value.Equals("TARJETA CREDITO") Then
                total = CDec(total + Val(row.Cells(1).Value) * Val(row.Cells(2).Value))
            End If
        Next
 

[guillebomtrasmiti]

si lo he hecho pero entonces me dice que el index no es correcto, es extraño todavía sigo entre excursión y excursión viendolo...que cosas más raras

[guillebomtrasmiti]

Object reference not set to an instance of an object.
ese es exactamente el error al poner el indice que es (4)

[guillebomtrasmiti]

Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index

y este error si hago
row = new row datagridviewrow

jaja, nada no se como hacer

[guillebomtrasmiti]

Dim total As Decimal = 0

For Each row As DataGridViewRow In DgTotales.Rows
If CBool(Val(row.Cells(4).Value.Equals("TARJETA CREDITO").ToString)) Then
total = CDec(total + Val(row.Cells(1).Value) * Val(row.Cells(2).Value))
'carga el textbox con el total de lo vendido en el periodo seleccionado
LbTarTotal.Text = CStr(total.ToString("#,##0.00"))
End If
Next

Y ASI TAMPOCO VAAA

[guillebomtrasmiti]

Object reference not set to an instance of an object.
alguien sabe que quiere decir este error?

[guillebomtrasmiti]

For Each r As DataGridViewRow In DgTotales.Rows
If r.Cells(5).Value Is ("TARJETA CREDITO") Then
r.DefaultCellStyle.BackColor = Color.Crimson
End If
Next

esto no me da error pero tampoco hace nada...arrjjjj, me voy a coger el teclado y le voy a quitar la v y la b de vb net....arrrjjjj

[guillebomtrasmiti]

nadie?, no me pueden ayudar?, no hay nadie en el foro web? (

[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

[Aquaventus]

Excelente guille! Mis Disculpas por no entrar a tiempo al foro, pero tenia obras sociales que realizar en esta semana santa, motivo por el cual no tuve acceso a algun ordenador para poder ayudaros, Saludos a ti a tu familia! Exitos hermano! .