Datagridview - RowEnter

I was originally using SelectionChanged, but the same thing happens.

The routine I am attempting to perform is a delete from a table & refresh of the datagridview while maintaining the selected row near the deleted row.

1) Delete from table using SQL statement.
2) Refresh the dataview & datagridview.
3) If not row 0, select the row prior to the deleted row.

#3 is shown below.  When debugging, I watch it execute these two lines & then the grdviewWebQueue.SelectionChanged fires.  But the CurrentRow.Index = 0 when it should be 3 or 4.
grdviewWebQueue.CurrentCell.Selected = True
grdviewWebQueue.CurrentCell = grdviewWebQueue.Item(1, x)

STRANGELY ENOUGH, when you look at the form upon completion of the process, the right row is selected/highlighted in blue.  It's just that the CurrentRow.Index is right when SelectionChanged fires.


I have the gridview set to select FullRow but I'm convinced I've had no problem in the past with setting a cell selected & it selects the row.

MISTAKE

>>CurrentRow.Index is NOT right when SelectionChanged fires.

CodeCruiser, I just tested thoroughly.

I put a Msgbox(grdview.CurrentRow.ToString) in my Sub right after where it sets CurrentCell above.  CurrentRow is correct at that point.  grdview.RowEnter/SelectionChanged does not reflect an updated CurrentRow yet.

I resolved by duplicating a piece of code I needed to execute from RowEnter/SelectionChanged and added it below CurrentCell code.  Everything works.  I've just realized that RowEnter/SelectionChanged gives proper CurrentRow if you click with mouse or move up/down with arrows.  Programmatically, when setting CurrentCell...CurrentRow isn't correct where RowEnter/SelectionChanged is fired.

I don't need to save the index because I loop at bottom of cmdDelete...  to set the right row.
Below is my code.

Private Sub cmdDeleteQueueRec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDeleteQueueRec.Click
        Dim glTemporaryContactID As Int64 = 0
        If grdviewWebQueue.SelectedRows.Count = 1 Then
            Dim msg As String = ""
            Dim index As Integer = grdviewWebQueue.CurrentRow.Index
            If (index = -1) Then
                Beep()
                msg = "Valid web queue record must be selected!!"
                MessageBox.Show(msg, "Stop!!", MessageBoxButtons.OK, MessageBoxIcon.Stop)
                OutofHere = True
                Exit Sub
            Else
                msg = "This record will be removed from web queue record list." & vbCrLf & "Are you sure you want to delete this record?"
                If MessageBox.Show(Me, msg, "Deleting Current Record", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
                    Exit Sub
                End If
                Try
                    glQueueID = dvWebQueue(index)("pkid").ToString
                    Activating = True
                    DeleteQueueRec()
                    GetWebQueueRecs()
                    If dvWebQueue.Count > 0 Then
                        If index = 0 Then
                            glQueueID = dvWebQueue(0)("pkid").ToString
                        Else
                            glQueueID = dvWebQueue(index - 1)("pkid").ToString
                        End If
                        ' PERFORM FIND ON RECORD
                        For x As Int32 = 0 To dvWebQueue.Count - 1
                            If dvWebQueue(x)("pkid").ToString = glQueueID Then
                                grdviewWebQueue.CurrentCell = grdviewWebQueue.Rows(x).Cells(1) 'Item(1, x)
                                grdviewWebQueue.CurrentCell.Selected = True
                                Exit For
                            End If
                        Next
                        'Activating = False
                        Dim index2 As Integer = grdviewWebQueue.CurrentRow.Index
                        GetPossibleMatches(dvWebQueue(index2)("contact_id"), dvWebQueue(index2)("contact_index").ToString, dvWebQueue(index2)("last_name").ToString, dvWebQueue(index2)("email").ToString)
                    End If
                    Activating = False
                Catch ex As Exception
                    HandledExceptionManager.EmailError = True
                    HandledExceptionManager.ShowDialog(glUserInitials, ex, GetEmailDefaults(glCompany, glUserInitials))
                    glValueUpdated = False
                    glSavedEvent = True
                    Me.Close()
                End Try
            End If
        End If
    End Sub


    Private Sub grdviewWebQueue_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdviewWebQueue.SelectionChanged
        If Activating Then Exit Sub
        If dvWebQueue.Count > 0 Then
            Dim msg As String = ""
            Dim index As Integer = grdviewWebQueue.CurrentRow.Index
            If (index = -1) Then
                OutofHere = True
                Exit Sub
            Else
                glQueueID = dvWebQueue(index)("pkid").ToString
            End If
            GetPossibleMatches(dvWebQueue(index)("contact_id"), dvWebQueue(index)("contact_index").ToString, dvWebQueue(index)("last_name").ToString, dvWebQueue(index)("email").ToString)
            If dvMemberMatch.Count > 0 Then
                grdviewMemberMatch.CurrentCell = grdviewMemberMatch.Item(1, 0)
                grdviewMemberMatch.CurrentCell.Selected = False
            End If
        Else
            GetPossibleMatches(-1, "", "", "")
        End If
    End Sub

Select all Open in new window

I just realized I can remove several lines of code based on your last post.

' PERFORM FIND ON RECORD
                        For x As Int32 = 0 To dvWebQueue.Count - 1
                            If dvWebQueue(x)("pkid").ToString = glQueueID Then
                                grdviewWebQueue.CurrentCell = grdviewWebQueue.Rows(x).Cells(1)
                                grdviewWebQueue.CurrentCell.Selected = True
                                GetPossibleMatches(dvWebQueue(x)("contact_id"), dvWebQueue(x)("contact_index").ToString, dvWebQueue(x)("last_name").ToString, dvWebQueue(x)("email").ToString)                                
                                Exit For
                            End If
                        Next

Select all Open in new window

This is a little cleaner.  You may have been eluding to this previously.  No For/Next required.....

Private Sub cmdDeleteQueueRec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDeleteQueueRec.Click
        If grdviewWebQueue.SelectedRows.Count = 1 Then
            Dim msg As String = ""
            Dim i As Integer = grdviewWebQueue.CurrentRow.Index
            If (i = -1) Then
                Beep()
                msg = "Valid web queue record must be selected!!"
                MessageBox.Show(msg, "Stop!!", MessageBoxButtons.OK, MessageBoxIcon.Stop)
                OutofHere = True
                Exit Sub
            Else
                msg = "This record will be removed from web queue record list." & vbCrLf & "Are you sure you want to delete this record?"
                If MessageBox.Show(Me, msg, "Deleting Current Record", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
                    Exit Sub
                End If
                Try
                    Activating = True
                    DeleteQueueRec()
                    GetWebQueueRecs()
                    If dvWebQueue.Count > 0 Then
                        Dim i2 As Integer = 0
                        If i = 0 Then
                            'i2 defaults to 0.
                        Else
                            i2 = i - 1
                        End If
                        glQueueID = dvWebQueue(i2)("pkid").ToString
                        grdviewWebQueue.CurrentCell = grdviewWebQueue.Rows(i2).Cells(1)
                        grdviewWebQueue.CurrentCell.Selected = True
                        GetPossibleMatches(dvWebQueue(i2)("contact_id"), dvWebQueue(i2)("contact_index").ToString, dvWebQueue(i2)("last_name").ToString, dvWebQueue(i2)("email").ToString)
                    Else
                        GetPossibleMatches(-1, "", "", "")
                    End If
                    Activating = False
                Catch ex As Exception
                    HandledExceptionManager.EmailError = True
                    HandledExceptionManager.ShowDialog(glUserInitials, ex, GetEmailDefaults(glCompany, glUserInitials))
                    glValueUpdated = False
                    glSavedEvent = True
                    Me.Close()
                End Try
            End If
        End If
    End Sub

Select all Open in new window