Тема "Сортировка в datagrid - как отловить" - уже знакома.
Сопутствующий теме вопрос: как после сортировки (производится нажатием на заголовке столбца) вернуться в datagrid, причем желательно на ту же строку, на которой находился до сортировки и сделать эту строку выбранной. Вот код, где делается попытка встать хотя бы на первую запись, но это происходит только после того, как сделаешь по крайней мере скроллинг datagrid.

Код

Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click         Dim pnt As Point = DataGrid1.PointToClient(Cursor.Position)         Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pnt)         If hti.Type = DataGrid1.HitTestType.ColumnHeader Then             BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Position = 0         End If     End Sub

при navigate запоминаешь тек.запись, а при сортировке направляешься на неё..
в чём трабла?

хм... не понимаю...
а можно в коде?

Цитата(asper @ 12.10.2005, 10:44)

Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click         Dim pnt As Point = DataGrid1.PointToClient(Cursor.Position)         Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pnt)         If hti.Type = DataGrid1.HitTestType.ColumnHeader Then             BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Position = 0             Me.DataGrid1.Select(0)         End If     End Sub

или, если надо на текущей ползиции

Код

Me.DataGrid1.Select(BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Position)

Это навскидку. Вроде еще проще можно. Извини не искал.

Вариант первый - с возвращением на первую строку - срабатывает, НО только в том случае, если хотя бы пошевелишь скроллинг таблицы, без этого - все глухо, строка не выделяется.
Вариант второй также реагирует только на скроллинг, но при этом выбирается не та запись, которая была выделена до сортировки, а та ПОЗИЦИЯ, на которой стояла запись до сортировки.
Как быть?

1. Извини насчет скроллинга. Так и не понял какой скроллинг таблицы требуется шевелить. Специально выбирал последнюю запись в гриде, сортировал и в первом варианте получал выделенную первую строку на экране без дополнительных телодвижений.
2. Опять же извини. Не понял, что требуется не на ту же строку грида, а на ту же ЗАПИСЬ (смутило еще, что надо почему то возвращаться в грид). В этом случае, ИМХО, только запоминать в переменной какой-нть ID записи, а после сортировки искать ее в гриде и выделять.

1.У меня табличка достаточно широкая, поэтому она имеет полосу прокрутки по горизонтали.
Я делаю сортировку по любому столбцу и в результате datagrid как будто деактивируется, то есть фокус к нему не возвращается (пробую сделать программную фокусировку - не помогает). НО если я двигаю скроллинг, то datagrid активизируется и первая запись выделяется в нем как выбранная.
2. Понятно, подумаю, вот только вернуться бы в datagrid

Цитата(asper @ 14.10.2005, 09:07)

Понятно, подумаю, вот только вернуться бы в datagrid

Для поиска в гриде можно использовать вычисляемый цикл

Код

For I = 0 To Me.dataset11.Table1.DefaultView.Count - 1       If Me.dataGrid1.Item(I, 0) = MyParam Then                 Me.dataGrid1.Select(0)                Exit For       End If Next

Тогда все само и получиться.

Если ставить этот код в обработку нажатия на header, то мне не понятно, что же сортируется - какую составляющую не посмотришь - все имеют старую сортировку...
Ничего не понимаю

Для того, чтобы вернуться на ту же строку (по значениям, содержанию), на которой находился курсор в datagrid до сортировки, пришлось реализовать такой код:

Код

Private Sub DataGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.Click         Dim pnt As Point = DataGrid1.PointToClient(Cursor.Position)         Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pnt)         If hti.Type = DataGrid1.HitTestType.ColumnHeader Then             Dim MDataView As DataView = DS1.Tables("Table1").DefaultView             AddHandler CType(MDataView, IBindingList).ListChanged, AddressOf DListChanged         End If     End Sub     Sub DListChanged(ByVal sender As Object, ByVal e As ListChangedEventArgs)         Dim MDataView As DataView = DS1.Tables("Table1").DefaultView         Dim properties As PropertyDescriptorCollection = CType(MDataView, ITypedList).GetItemProperties(Nothing)         Dim oDescriptor As PropertyDescriptor = properties("T1")         Dim iPos As Integer = CType(MDataView, IBindingList).Find(oDescriptor, T1) 'Т1 - значение столбца, по которому идет определение позиции записи         BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Position = iPos         DataGrid1.Select(iPos)     End Sub

При отладке дебаггером на строке DataGrid1.Select(iPos) выдается сообщение: "there is no source code available for the current location".
В datagrid, пока не пошевелишь прокрутку таблицы, курсор в нужную позицию не встает - он вообще отсутствует, т.е. теряется при сортировке. Не помогает НИЧЕГО

Помогите, плз, советом, что делать....

А что не работает в приведенном мной примере?

Цитата

А что не работает в приведенном мной примере?

На нужную позицию вернуться не получается, DataGrid не активизируется (курсор никуда не ставится)
Кстати, для возвращения курсора пришлось имитировать нажатие esc...

Цитата(asper @ 19.10.2005, 04:13)

На нужную позицию вернуться не получается

А цикл-то отрабатывает? Запись находится?

Нет, запись найти не получается - я вообще не совсем понимаю, как работает этот цикл. А если была сортировка?