vb.net datagrid scroll automatically to the first found row

Hi Peter;

The DataGridView has a property called FirstDisplayedScrollingRowIndex which when set should bring the selected row to the top. You can set it like so

grid.FirstDisplayedScrollingRowIndex = IntegerRowIndexHere

Select allOpen in new window

yes I read about that but didnt see how to get that number is it the first value of counter or IndexOf?

I got a syntax error with the square brackets (The error message said collection cannot be converted) so i tried with circular it did go to a row but not the first:

If (DataGridViewStrCommon.SelectedRows.Count > 0) Then

            DataGridViewStrCommon.FirstDisplayedScrollingRowIndex = DataGridViewStrCommon.Rows.IndexOf(DataGridViewStrCommon.SelectedRows(0))
        End If

Select allOpen in new window

Sorry about that Peter but the code I posted was C# and not VB.Net. As far as moving it to the very top row there must be enough rows under the one to be displayed in the top row position for it to move to the top.

its interesting it does work but if I scroll down from the top I have vehicle range A6 and the last I have is a ZZR A6 it scrolled to the ZZR A6 and I had hoped it would have gone to the A6 as A6 was nearest to the top.

Whoops, I forgot that the SelectedRows collection is filled in reverse, just use Last() to get the Last Item (which is actually the first item selected) in the list and use index on it; e.g. -

<Extension()>
Public Sub SearchAndSelect(grid As DataGridView, term As String, selector As String, Optional clearSelected As Boolean = False)
    If grid IsNot Nothing AndAlso grid.Rows.Count < 1 Then Return
    If String.IsNullOrWhiteSpace(term) Then Return
    grid.BeginEdit(True)
    Dim counter = 0
    If clearSelected Then
        For Each row In grid.SelectedRows.Cast(Of DataGridViewRow)()
            row.Selected = False
        Next
    End If

    For Each row In grid.Rows.Cast(Of DataGridViewRow)()
        If selector <> "- All Columns -" Then
            If row.Cells(selector).Value IsNot Nothing AndAlso row.Cells(selector).Value.ToString().IndexOf(term, StringComparison.OrdinalIgnoreCase) <> -1 Then
                row.Selected = True
                counter += 1
                Continue For
            End If
        Else
            For Each column In grid.Columns.Cast(Of DataGridViewColumn)()
                If row.Cells(column.Name).Value IsNot Nothing AndAlso row.Cells(column.Name).Value.ToString().IndexOf(term, StringComparison.OrdinalIgnoreCase) <> -1 Then
                    row.Selected = True
                    counter += 1
                    Exit For
                End If
            Next
        End If
    Next
    grid.EndEdit()

    If counter = 0 Then MessageBox.Show(String.Format("No rows were found that matched - {0}", term))
    If grid.SelectedRows.Count > 0 Then
        grid.FirstDisplayedScrollingRowIndex = grid.SelectedRows.Cast(Of DataGridViewRow).Last().Index
    End If
End Sub

Select allOpen in new window

You could also Reverse the list and choose the first item - whichever works for you; e.g. -

<Extension()>
Public Sub SearchAndSelect(grid As DataGridView, term As String, selector As String, Optional clearSelected As Boolean = False)
    If grid IsNot Nothing AndAlso grid.Rows.Count < 1 Then Return
    If String.IsNullOrWhiteSpace(term) Then Return
    grid.BeginEdit(True)
    Dim counter = 0
    If clearSelected Then
        For Each row In grid.SelectedRows.Cast(Of DataGridViewRow)()
            row.Selected = False
        Next
    End If

    For Each row In grid.Rows.Cast(Of DataGridViewRow)()
        If selector <> "- All Columns -" Then
            If row.Cells(selector).Value IsNot Nothing AndAlso row.Cells(selector).Value.ToString().IndexOf(term, StringComparison.OrdinalIgnoreCase) <> -1 Then
                row.Selected = True
                counter += 1
                Continue For
            End If
        Else
            For Each column In grid.Columns.Cast(Of DataGridViewColumn)()
                If row.Cells(column.Name).Value IsNot Nothing AndAlso row.Cells(column.Name).Value.ToString().IndexOf(term, StringComparison.OrdinalIgnoreCase) <> -1 Then
                    row.Selected = True
                    counter += 1
                    Exit For
                End If
            Next
        End If
    Next
    grid.EndEdit()

    If counter = 0 Then MessageBox.Show(String.Format("No rows were found that matched - {0}", term))
    If grid.SelectedRows.Count > 0 Then
        grid.FirstDisplayedScrollingRowIndex = grid.SelectedRows.Cast(Of DataGridViewRow).Reverse()(0).Index
    End If
End Sub

Select allOpen in new window

-saige-

thank you both

our messages crossed!

you might wonder why I closed, it was because I thought that that was the way it was. maybe a moderator will change to the best and assisted but using the last message if that makes sense