Vic
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору К тому, что ты набросал добавил для правильности Alex1978 Цитата: procedure TMainForm.tbvPersonsDataControllerCompare( ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); begin if (V1 <> 'последняя') and (V2 <> 'предпоследняя') and (V1 <> 'предпоследняя' ) and (V2 <> 'последняя') then Compare := AnsiCompareStr(V1,V2) else begin if (V1 = 'последняя') and (V2 <> 'предпоследняя') then Compare := 1; if (V1 = 'предпоследняя') and (V2 <> 'последняя') then Compare := 1; if (V1 = 'последняя') and (V2 = 'предпоследняя') then Compare := 1; if (V1 = 'предпоследняя') and (V2 = 'последняя') then Compare := -1; end; end; | Сообщаю результат, запускаю прогу (на свойствах колонки сортировки нет) записи последние все ок, щелкаю по колонке, все сортируется нужные записи внизу, щелкаем еще раз, меняем сортировку записи уползают на самый верх, т.е. стоят первые, что-то никак недоганю, что здесь не так? |