Сортирую по нажатию на заголовок, но срабатывает только один раз, потом выдаёт ошибку "Ошибка синтаксиса в предложении 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;
|
Извиняюсь за созданую тему. |
)