VPF::Помогите с сортировкой. - Форум программистов

Vavik

Дата 24.9.2009, 09:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет

Сортирую по нажатию на заголовок, но срабатывает только один раз, потом выдаёт ошибку "Ошибка синтаксиса в предложении ORDER BY. Не пойму чего не так.

Код


procedure TForm1.DBGrid1TitleClick(Column: TColumn);
 begin
    Query1.Active:=false;
    Query1.SQL.clear;
    Query1.SQL.Add('SELECT * FROM Рефераты ORDER BY '+ Column.FieldName);
    Query1.Active:=true;
    Form1.DBGrid1.DataSource:=Form1.DataSource2;
    dbgrid1.Columns.Items[0].Visible:=false;
    dbgrid1.Columns.Items[6].Visible:=false;
    dbgrid1.Columns.Items[1].Width:=275;
    dbgrid1.Columns.Items[2].Width:=121;
    dbgrid1.Columns.Items[3].Width:=66;
    dbgrid1.Columns.Items[4].Width:=46;
    dbgrid1.Columns.Items[5].Width:=94;
end;

Лин, сделал немного проще, сортирую теперь так

Код


 ADOQuery1.Sort :=  Column.FieldName;

Извиняюсь за созданую тему.

Это сообщение отредактировал(а) Vavik - 24.9.2009, 09:05

Akella

Дата 24.9.2009, 10:01 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Ну так посмотри дебаггером, какой запрос формируется.

Данкинг

Дата 24.9.2009, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Vavik @ 24.9.2009, 10:01

)

Не пойму чего не так.

Смотри значение Query1.SQL.Text - поймёшь, что там не так может быть.

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »