Deleting multiple images in a grid

[AZUL]

I have a grid in which there are two columns ("Name" and "sel"), sel is a checkboxcolumn. The user will check in my grid the users it does not want, and after he removes with this code:

Private Sub tsbtnDelUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnDelUser.Click
    Dim j As Integer = dgvUsers.RowCount
    For i As Integer = 0 To j
        If dgvUsers.Rows(i).Cells("sel").Value = True Then
            dgvUsers.Rows.RemoveAt(i)
            i -= 1
        End If
    Next
End Sub

My problem is that when I delete a user, all the rest lose a row (hence my "i-= 1") so my variable j do more good value and once arriving at the end of my grid, it is still incrementing i and generates an error index. How do I change my variable for the stolen j?

[absolute55]

Its rather a collection of the list of rows check then you do one for each in this collection.

Dim linesAremove As New System.Collections.Generic.List(Of DataGridViewRow)
 
For Each line As DataGridViewRow In mydgv.rows
    If the cell of combobox is checked then 
        linesAremove.Add(line)
    End If
Next
 
For Each line In linesAremove 
    mydgv.Rows.Remove(line)
Next

working on things that move is not practical

[AZUL]

How? Instead of deleting it, I added in a collection and then I made one for each of the collection of items to remove? That sounds logical, but how do you save for a row in a collection?

[fellah]

Originally Posted by AZUL

How? Instead of deleting it, I added in a collection and then I made one for each of the collection of items to remove? That sounds logical, but how do you save for a row in a collection?

You can use eg an ArrayList.

Dim entries as new ArrayList
 
for i as integer = 0 to j 
  If dgvUsers.Rows(i).Cells("sel").Value = True Then
   entries.add(dgvUsers.Rows(i))
  End If
next
 
for each row as DataGridRow in entries
   dgvUsers.Rows.Remove(row)
next

[AZUL]

That is what I coded:

Dim LineRem As New System.Collections.Generic.List(Of DataGridViewRow)
For Each line As DataGridViewRow In dgvUsers.Rows
     If line.Cells("sel").Value = True Then
          Dim UserID As Integer = line.Cells("ID").Value
          If conSE.State = ConnectionState.Open Then conSE.Close()
          conSE.Open()
          cmd.CommandText = "DELETE FROM UsersLogin WHERE ID =" & UserID
          cmd.ExecuteNonQuery()
          conSE.Close()
          LineRem.Add(line)
     End If
Next
For Each line In LineRem 
     dgvUsers.Rows.Remove(line)
Next

My problem is that if there is only one check in step, mode has the value "DBNull" so it can not be erased. And it never erases the last of the list. Does anyone have an idea?