Сортировка при нажатии на DBgrid

@slene · Регистрация: 16.03.2018

Студворк — интернет-сервис помощи студентам

При клике на заголовок выполняется сортировка вроде бы нашел как это сделать но в составных таблицах это не работает. И выдается ошибка.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    sortFlag: Boolean;
procedure TForm4.dbgrd1TitleClick(Column: TColumn);
var
  s: string;
begin
  s:=Column.FieldName;
 DataModule2.QPoc.Close;
 
  if sortFlag then
    datamodule2.QPoc.SQL.Text := 'select  p.id, pp.name, p.data,p.name from poctuplenia p , postavshik pp  ORDER BY ' + s + ' DESC'
  else
    DataModule2.QPoc.SQL.Text := 'select  p.id, pp.name, p.data,p.name from poctuplenia p , postavshik pp ORDER BY ' + s + ' ASC';
 
  sortFlag := not sortFlag;
 
  DataModule2.QPoc.Open;
end;

Скандербег · 14.04.2019, 16:44

Неоднозначность имен полей в двух таблицах мешает серверу СУБД понять по полю какой таблицы сортировать.
В тексте запроса поля с именем NAME указаны с алиасами таблиц: pp.name, p.name, а в предложении ORDER BY, подставляется переменная, которой, скорее всего, присвоено имя 'NAME' без указания таблицы. Отсюда ошибка.

Решение может быть в двух вариантах:
- добавить имя (алиас) таблицы к имени поля в переменной s;
- указать в предложении ORDER BY номер поля (номер поля в списке полей в запросе), а не его имя.

@slene · 14.04.2019, 19:29 **[ТС]**

Что-то немного не понимаю, а как указать номер поля?

@qwertehok · 14.04.2019, 19:39

Сообщение от slene

s:=Column.FieldName;

добавить

Delphi
1
s:='p.'+s

или pp - не знаю по какому полю сортируете

ЗЫ зачем вы в DataModule2.QPoc.SQL.Text 2 раза пишите запрос?
почему бы не сделать так:

Delphi
1
2
3
DataModule2.QPoc.SQL.Text:='select  p.id, pp.name, p.data,p.name from poctuplenia p , postavshik pp  ORDER BY ' + s;
if sortFlag then DataModule2.QPoc.SQL.Text:=DataModule2.QPoc.SQL.Text+' DESC'
else DataModule2.QPoc.SQL.Text:=DataModule2.QPoc.SQL.Text+' ASC'

Скандербег · 14.04.2019, 19:43

Сообщение от slene

Что-то немного не понимаю, а как указать номер поля?

Номера полей по порядку как они объявлены в тексте запроса:
select p.id<1-е поле>, pp.name<2-е>, p.data<3-е>, p.name<4-е>

@qwertehok · 14.04.2019, 20:30

Сообщение от Скандербег

Номера полей по порядку как они объявлены в тексте запроса:

это необязательно в сортировке

в ошибке написано - Неоднозначное имя, это значит что в обоих таблицах есть одинаковые колонки

Скандербег · 14.04.2019, 20:57

Сообщение от qwertehok

Неоднозначное имя, это значит что в обоих таблицах есть одинаковые колонки

Об этом же (немного другими словами) и сказано в посте #2

@slene · 14.04.2019, 22:01 **[ТС]**

Ну я переделал но, теперь таблица копирует все значения. И если s:='p.'+s, то фильтрует только по тем столбцам которые начинаются на p. , но тут понятно почему. А как добавить 2 таблицу?

@qwertehok · 14.04.2019, 22:06

Сообщение от slene

теперь таблица копирует все значения

не понятно

Сообщение от slene

А как добавить 2 таблицу?

куда добавить?

Сообщение от slene

Ну я переделал

а что переделал нужно узнать телепатически?

@slene · 14.04.2019, 22:39 **[ТС]**

Delphi
1
2
3
4
5
var
  s: string;
begin
  s:=Column.FieldName;
  s:='p. ' +s;

Да что принципе написали, то и сделал. Вот как теперь добавить pp. ,и при сортировки корректно сортируется только поле ID а дальше как-то в разброс. На скриншоте сортировка выполнена по Name

@mac1eod · 14.04.2019, 22:41

Сообщение от slene

сортировка выполнена по Name

а как будто по name1

@slene · 14.04.2019, 22:43 **[ТС]**

Да вот тоже что-то смотрю,но до 22 ID идет сортировка нормально

@mac1eod · 14.04.2019, 22:55

как то больно сложно у вас выполняется сортировка

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//процедура сортировки в гриде
procedure SortGrid(ColumnEh: TColumnEh; Query: TADOQuery; DBGridEh: TDBGridEh);
var
  sTmp: string;
begin
  if Query.RecordCount>0 then
    begin
      sTmp:=Query.Sort;
      if pos('DESC', sTmp)=0 then
        Query.Sort:=DBGridEh.Columns[ColumnEh.Index].FieldName + ' DESC'
      else
        Query.Sort:=DBGridEh.Columns[ColumnEh.Index].FieldName + ' ASC';
    end;
end;

проверено годами, вещать на событие OnTitleClick

@slene · 14.04.2019, 22:59 **[ТС]**

Delphi
1
2
3
DataModule2.QPoc.SQL.Text:='select  p.id, pp.name, p.data,p.name from poctuplenia p , postavshik pp where p.id_postav=pp.id ORDER BY ' + s;
if sortFlag then DataModule2.QPoc.SQL.Text:=DataModule2.QPoc.SQL.Text+' DESC'
else DataModule2.QPoc.SQL.Text:=DataModule2.QPoc.SQL.Text+' ASC' ;

Добавил where и теперь при сортировки по name1 выводит ошибку. И понять не могу почему он странно сортирует

@slene · 14.04.2019, 23:15 **[ТС]**

Сообщение от mac1eod

sTmp:=Query.Sort;
* * * if pos('DESC', sTmp)=0 then
* * * * Query.Sort:=DBGridEh.Columns[ColumnEh.Index].FieldName + ' DESC'
* * * else
* * * * Query.Sort:=DBGridEh.Columns[ColumnEh.Index].FieldName + ' ASC';
* * end;
end;

А как вот эту часть переделать под IBquery т.е. под Qpoc

Скандербег · 14.04.2019, 23:21

Могу предложить "дурацкий", но 100% работающий прием. Для объединенных таблиц с небольшим колич. полей годится.
1. дать второму полю с тем же самым именем псевдоним (алиас):
select p.id, pp.name, p.data, p.name namep from poctuplenia p, postavshik pp
2. если в гриде есть список колонок, поменять в гриде имя поля (свойство FieldName) с name на его алиас (namep).

А в процедуре проверять какая колонка нажата (с наличием алиаса - определяется просто) и присваивать номера полей переменной:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var 
  s, q : string;
begin
  if Column.FieldName = 'name' then S := '2';
  if Column.FieldName = 'data' then S := '3';
  if Column.FieldName = 'namep' then S := '4';
 
  q := 'select p.id, pp.name, p.data, p.name namep from poctuplenia p, postavshik pp ORDER BY '; 
  if sortFlag then
    datamodule2.QPoc.SQL.Text := q + s +' DESC'
  else
    DataModule2.QPoc.SQL.Text := q + s;
  sortFlag := not sortFlag;
  DataModule2.QPoc.Open;
end;

Номера полей здесь приходится использовать потому что по алиасам не сортируется.

Добавлено через 6 минут

Сообщение от mac1eod

проверено годами

Не получится. Дело в том, что колонки штатного грида Дельфи не знают какой у них индекс.
Грид используемый ТС не из библиотеки компонентов EhLib.

@mac1eod · 14.04.2019, 23:23

slene, если честно, думал у вас ADOQuery в качестве датасета...
Если у IBquery нет метода Sort, тогда боюсь никак, извиняйте

@slene · 14.04.2019, 23:40 **[ТС]**

Сообщение от Скандербег

q := 'select p.id, pp.name, p.data, p.name namep from poctuplenia p, postavshik pp ORDER BY ';
* if sortFlag then
* * datamodule2.QPoc.SQL.Text := q + s +' DESC'

Пытался через этот способ не получается

Скандербег · 14.04.2019, 23:42

Сообщение от slene

Пытался через этот способ не получается

У меня получается (никогда не даю советов без предварительной их проверки). Надо разыскать "зарытую собаку".
Если бы был проект с базой, то можно было попытаться найти "собаку".

@slene · 14.04.2019, 23:44 **[ТС]**

Это вообще возможно реализовать?
Для простых таблиц использовал вот это работает нормально. Но опять же не знаю как реализовать для составных таблиц

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm3.dbgrd1TitleClick(Column: TColumn);
begin
  with DataModule2.QPost do
  begin
DisableControls;
Close;
SQL.Clear;
SQL.Add('select *');
SQL.Add('from postavshik');
SQL.Add('order by ' + Column.FieldName);
Open;
DataModule2.QPost.EnableControls;
end;
end;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	14.04.2019, 16:44
	Неоднозначность имен полей в двух таблицах мешает серверу СУБД понять по полю какой таблицы сортировать. В тексте запроса поля с именем NAME указаны с алиасами таблиц: pp.name, p.name, а в предложении ORDER BY, подставляется переменная, которой, скорее всего, присвоено имя 'NAME' без указания таблицы. Отсюда ошибка. Решение может быть в двух вариантах: - добавить имя (алиас) таблицы к имени поля в переменной s; - указать в предложении ORDER BY номер поля (номер поля в списке полей в запросе), а не его имя. 0

@slene 0 / 0 / 0 Регистрация: 16.03.2018 Сообщений: 51
	14.04.2019, 19:29 [ТС]
	Что-то немного не понимаю, а как указать номер поля? 0

@slene 0 / 0 / 0 Регистрация: 16.03.2018 Сообщений: 51
	14.04.2019, 22:01 [ТС]
	Ну я переделал но, теперь таблица копирует все значения. И если s:='p.'+s, то фильтрует только по тем столбцам которые начинаются на p. , но тут понятно почему. А как добавить 2 таблицу? 0

@slene 0 / 0 / 0 Регистрация: 16.03.2018 Сообщений: 51
	14.04.2019, 22:43 [ТС]
	Да вот тоже что-то смотрю,но до 22 ID идет сортировка нормально 0

@mac1eod 231 / 163 / 54 Регистрация: 26.10.2014 Сообщений: 928
	14.04.2019, 23:23
	slene, если честно, думал у вас ADOQuery в качестве датасета... Если у IBquery нет метода Sort, тогда боюсь никак, извиняйте 0