Дата и MSHFlexGrid

[Чудик]

Такая ситуация -
Один из столбцов Grid заполняется датами. Как можно их отсортировать? Проблема в том, что в таблице они рассматриваются контролом как текстовая информация и, соответственно, сортировка происходит не корректно. Заранее сортировать даты в БД нету возможности, так как даты берутся из нескольких таблиц.
Подкиньте идейку!

[Dzhon]

Отсортировать RECORDSET, а потом заполнить GRID.

[Чудик]

даты берутся из нескольких рекодсетов.

[alibek]

У грида есть событие Sort, советую обратить внимание на него.

[FaKk2]

alibek
Событие?
Скорее метод.
...
Гмм, проверил, действительно событие. Как же оно работает?

[alibek]

В событии есть ByRef-аргумент с кодом возврата и два ByVal-аргумента с номерами сравниваемых строк. В коде надо сравнить и указать, какая больше, какая меньше. Все остальное делает грид.

[Чудик]

Alibek, чего-то не допонял. Можно на пальцах? С примером?

[alibek]

Вначале надо сделать

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

MSHFlexGrid1.Sort = 9 'flexSortCustom

А затем вставить этот код:

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


Private Sub MSHFlexGrid1_Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As Integer)
Dim V1 As Variant, V2 As Variant
V1 = MSHFlexGrid1.TextMatrix(Row1, 1)
V2 = MSHFlexGrid1.TextMatrix(Row2, 1)
If V1 = V2 Then
  Cmp = 0
Else
  If V1 < V2 Then
    Cmp = -1
  Else
    Cmp = 1
  End If
End If
End Sub


[Чудик]

Соответственно V1 и V2 необходимо преобразовывать в тип даты, чтоб сравнивать? Или все и так работает хорошо?

[Konst_One]

DateDiff(...) заюзай

[alibek]

Можно DateDiff, можно привести к типу Date, как удобнее.

[Чудик]

Все! Спасибо за обрисовку всей картины.

[АндрейБ]

Попробуй заполнять новую таблицу со своей сортировкой, а из нее заполнять MSFlexGrid. Мне это помогло организовать вывод не только сорировки, но и группировки!