Сортировка данных в DataGrid

[Валерий]

Подскажите пожалуйста код для сортировки данных в DataGrid, чтобы можно было сотировать данные при нажатии на заголовке столбца. Или например, при выделении столбца и нажатии кнопки "сортировка" на тулбаре.
Код сам по себе не сложный, но куда его (в какое событие) засунуть, чтобы сортировка происходила по нажатию мыши на заголовок столбца?

[sanches]

Щелчек на заголовке: это событие HeadClick

Код: Выделить всё

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    MsgBox "header click: ColIndex = " & ColIndex
End Sub

Ну а насчет выбранного, так просто св-во Col

[Валерий]

Огромное спасибо. Все работает...

[Summer.05]

Прошу прощения, а у меня этот код не работает. Видимо потому, что ByVal ColIndex определен как Integer, а у меня названия колонок текстовые. Хотя, я скорее всего, и не прав.
Моя попытка:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim Col As String
With Adodc1
If ColIndex = 1 Then
Col = "Title"
Text1.Text = Col
.RecordSource = "SELECT * FROM DB order by Col"
.Refresh
End If
End With

Text1.Text показывает, что Col = Title, но на Refresh высказывает ошибка - не хватает каких-то параметров.

Подскажите, пожалуйста, в чем ошибка?
Спасибо!

[GSerg]

var = "Привет"
msgbox "var"


В чём ошибка?

[Summer.05]

GSerg
Здравствуй, Шаман - Учитель!
Ошибка в том, что набил лишние операции.
Можно проще, через IF

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim Col As String
With Adodc1
If ColIndex = 1 Then
.RecordSource = "SELECT * FROM DB order by Title"
.Refresh
End If
End With
End Sub

и т.д. Всего-то 6 полей - будет 6 IF

[GSerg]

Код: Выделить всё

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
  adodc1.recordset.sort=datagrid1.columns(colindex).datafield
end sub

Ы?

[Summer.05]

GSerg
Да уж.....
Могу только завидовать знаниям белой завистью.
Очень уважаю профессионалов!
Спасибо!