Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Сортировка в DataGrid

Автор: AlexeyW 19.11.2008, 04:36

Помогите! Есть Datagrid как отсортировать по клику на заголовке столбца! Есть код он работает тока сортирует на убывание, Как сделать чтобы сортировал по возрастанию??

Код


Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
With Adodc1.Recordset
If .Fields(ColIndex).Type <> 11 And .Fields(ColIndex).Type <> 12 Then
.Sort = .Fields(ColIndex).Name
DataGrid1.Refresh
Else
MsgBox "Сортировка для МЕМО-полей и полей типа OLE Object невозможна!!", vbExclamation
End If
End With
End Sub

Автор: Akina 19.11.2008, 08:48

Модератор: Используйте теги форума, в частности тег "Код".

Цитата(AlexeyW @ 19.11.2008, 05:36

)

Как сделать чтобы сортировал по возрастанию??

Код


.Sort = .Fields(ColIndex).Name & " ASC"

Автор: AlexeyW 19.11.2008, 12:00

Сори наоборот сортируеться по возрастанию, а надо по убыванию! Что бы как в проводнике один раз нажал на заголовок она так отсортировалось, нажал еще раз на заголовок она на оборот отсортировалось!
Заранее спасибо!

Автор: Akina 19.11.2008, 12:12

Цитата(AlexeyW @ 19.11.2008, 13:00

)

сортируеться по возрастанию, а надо по убыванию

Значит DESC.