Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

Сортировка по убыванию.   Найти похожие ветки 

 
AlV ©   (2002-12-06 18:52) [0]

Здравствуйте уважаемые мастера. Хочу попросить у вас помощи. Ситуация такая, хочу организовать в своей БД сортировку по возрастанию и убыванию. За сортировку отвечает нижеприведенный участок кода. Но при любой комбинации переключателей сортировка идет по возрастанию. Как с этим бороться?
Заранее спасибо!

procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Table1.IndexName:="indSchet";
1: Table1.IndexName:="indName";
2: Table1.IndexName:="";
end;

case RadioGroup2.ItemIndex of
0: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options-
[ixDescending];
1: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options+
[ixDescending];
end;
end;


 
BoxTer ©   (2002-12-06 19:59) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Table1. IndexFieldNames:="indSchet";
1: Table1. IndexFieldNames:="indName";
2: Table1.IndexName:="";
end;

case RadioGroup2.ItemIndex of
0: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options-
[ixDescending];
1: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options+
[ixDescending];
end;
end;


 
AlV ©   (2002-12-06 21:32) [2]

Попробовал, не работает 8-(


 
ЮЮ ©   (2002-12-07 04:05) [3]

IndexDefs, наверное, как и FiedDef имеет смысл менять лишь при создании индекса с нужными св-ми.
Для сортировки по убыванию надо естественно уже иметь индекс по полю по убыванию, а в приложении уже использовать тот или иной индекс, в зависимости, какая сортировка нужна.



Страницы: 1 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
6-86052
Repeater
2002-10-30 17:09
2002.12.26
Как ждать ответа от сокета?


6-86050
ДУБ
2002-10-30 16:01
2002.12.26
Интернет


6-86072
RomanRom2
2002-10-29 14:58
2002.12.26
Вернуть IP адрес подключаемого компа к моему серверу


4-86214
lesa
2002-11-11 18:20
2002.12.26
Как запустить DOS приложение в окне с помощью CreateProcess?


1-85983
xyz
2002-12-16 00:49
2002.12.26
Из компьютера сделать телефонного робота...