Eliminar Filas seleccionadas de un Datagridview

[Carlojas]

Buenas tardes compañeros mi inquietud es la siguiente:
Tengo un DataGridview con una columna Tipo CheckBox, para marcar determinadas columnas y poderlas borrar del objeto, el código que utilizo para este procedimiento es el siguiente:

Código vb:

'Recorrer y borrar filas seleccionadas 
For Each Row As DataGridViewRow In dgfacturas.Rows
      If Row.Cells(1).Value <> vbNullString Then
         If Row.Cells(12).Value = "M" Then
            If Convert.ToBoolean(Row.Cells(0).Value) Then
                Me.dgfacturas.Rows.Remove(Row)
            End If
          End If
       End
Next
 

lo que hago es validar que una de mis columnas tenga estado "M" para proceder a eliminarla, el problema es el siguiente yo marco por ejemplo 5 o 6 filas para eliminar y siempre me deja de esas filas 1 o 2 sin eliminar aunque esten marcadas en el checkbox, a que se puede deber esto????

Agradesco de antemano sus comentarios al respecto.


Saludos.

[Dradi7]

El error puede suceder q el cambio no ocurre hasta q hayas seleccionado otra celda o otro check
digamos yo selecciono una fila esta va a estar en false y la chekeo entonces todavia va a estar false hasta q seleccione otra celda en la grilla y asi al reves

para esto prueba realizando lo siguiente

Código vb:

Private Sub dgfacturas_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgfacturas.CellContentClick
        If e.RowIndex < 0 Or Not e.ColumnIndex = 0 Then Exit Sub
        If Convert.ToBoolean(dgfacturas.Rows(e.RowIndex).Cells(0).Value) Then
            dgfacturas.Rows(e.RowIndex).Cells(0).Value = False
        Else
            dgfacturas.Rows(e.RowIndex).Cells(0).Value = True
        End If
    End Sub
 

esto es para q cuando seleccione el check de la grilla utomaticamente cambie su valor ala accion q realize chekeado o deschekeado

[Carlojas]

Muchas Gracias Dradi7 por la respuesta ,segui tu código, pero aun no me elimina todas las filas que chequeo me deja 1 o 2 sin eliminar




Saludos.

[Dradi7]

una pregunta has verificado q las filas seleccionadas tenga el valor "M"
y una pregunta mas q te devuelve el valor Row.Cells(1).Value <> vbNullString

[Carlojas]

Si claro las filas seleccionadas tienen el valor "M", y lo segundo es porque en esa celda del grid tengo un numero de orden y pues lo hago para que no tome la ultima fila del grid que no tendría nada.


Saludos.

[Trulala de cordoba]

Yo creo que en teoría estaría todo bien, según tu código y el que te paso el amigo. Yo lo que haría es poner un punto de interrupción en la linea 2 donde inicia el For each y anda siguiendo y viendo que está pasando y viendo porque IF entra y por cuales no, eso te va ayudar a refinar aun más donde puede estar el problemita

[Carlojas]

Que tal compañeros hice lo que me recomendaron el grid tenia 10 filas de las cuales 5 tenian el estado "M", hice el punto de interrupcion y solo elimino 3 de las 5 con estado "M", vi que cuando termino de eliminar la 3 se salio del Bucle For sin mas ni menos, a que se podrá deber el inconveniente?????

Una vez mas gracias por sus comentarios.




Saludos.

[Dradi7]

Parece q el compilador esta interpretando q al eliminar dichas filas y recorrerlas con el for each recorre a dicha fila y como ve q no lo encuentra entonces corta el for each
puedes tratar de usar un for normal mira

Código vb:

For Row As Integer = Me.dgfacturas.Rows.Count - 2 To 0 Step -1
            If Me.dgfacturas.Rows(Row).Cells(12).Value = "M" Then
                If Convert.ToBoolean(Me.dgfacturas.Rows(Row).Cells(0).Value) Then
                    Me.dgfacturas.Rows.RemoveAt(Row)
                End If
            End If
        Next
 

al poner Me.dgfacturas.Rows.Count - 2 no me recorreria la ultima fila q esta para el agregado reduciendo un poco tu codigo

[Carlojas]

Muchas Gracias Dradi7 funcionó a la perfección



Saludos