DbGrid + два шт Lookupcombobox

@UEvgeniy · Регистрация: 27.02.2011

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

Всем здравствуйте! Помогите пожалуйста решить проблему. БД Interbase. На форме есть DBGrid с полями "Артикул1", "Артикул2", "Поставщик1", "Поставщик2". DbLookUpCombobox1 отображает поставщиков одного артикула, а DbLookUpCombobox2 отображает поставщиков второго артикула, все подключенны к одной таблице в БД. Очень хочется осуществить сортировку полей таблицы по значениям LookUpCombobox.

Добавлено через 13 часов 23 минуты
Или может там обычныe Dbcombobox нужны? Просто уровень моих позниний не высок, я только еще пытаюсь освоить delphi.

@SAMZ · 28.02.2011, 14:12

Реализация того, что Вам необходимо зависит от того, как Вы формируете DataSet для грида (это таблица или селективный запрос) и от того, какими компонентами доступа к БД пользуетесь (BDE, InterBase, FIBPlus ...). Что - либо посоветовать можно только при наличии этой информации.

@UEvgeniy · 28.02.2011, 17:46 **[ТС]**

Прошу прощения за скудность информации в педыдущем сообщении.

В БД interbase подключаюсь к двум таблицам:
1. tConnect - заголовок соединений профилей
(tb:8; fl:'aNum1'; tp:ftString; sz:15; id:1), // № арт. 1
(tb:8; fl:'aNum2'; tp:ftString; sz:15; id:1), // № арт. 2
(tb:8; fl:'pNum1'; tp:ftSmallInt; sz:0; id:1), // № пост-ка 1
(tb:8; fl:'pNum2'; tp:ftSmallInt; sz:0; id:1), // № пост-ка 2
(tb:8; fl:'cConn'; tp:ftInteger; sz:0; id:1), // уник. №
(tb:8; fl:'cName'; tp:ftString; sz:32; id:0), // название
2. tPostavs - поставщики
(tb:4; fl:'pName'; tp:ftString; sz:32; id:1), // название поставщика
(tb:4; fl:'pNumb'; tp:ftSmallint; sz:0; id:1), // уник. № поставщика

Использую компоненты interbase. IBTable1: TableName - TCONNECT, Datasource1: DataSet - IBTable1, IBTable2: TableName - TPOSTAVS, Datasource2: DataSet - IBTable2, IBQuery1: SQL - select * from TCONNECT, Datasource3: DataSet - IBQuery1.
Подключение компонентов визуализации данных:
DBLookUpCombobox1: DataSource - DataSource1, DataField - PNUM1; ListSource - DataSource2, ListField - PName, KeyField - PNumb.
DBLookUpCombobox2: DataSource - DataSource1, DataField - PNUM2; ListSource - DataSource2, ListField - PName, KeyField - PNumb.
DBGrid1: DataSource - DataSource3

@SAMZ · 28.02.2011, 18:45

Использую компоненты interbase. IBTable1

Это плохо! Работать с IBTable - это плохой тон. Во всяком случае организовать сортировку по LookUp полю в этом объекте невозможно. Если проект не очень сложен и можно быстро переделать, посоветовал бы в качестве DataSet использовать IBQuery. Правда Вам при этом придется осваивать объект IBUpdateSQL и IBTransaction

@UEvgeniy · 01.03.2011, 05:46 **[ТС]**

Спасибо большое за подсказку! Вечером попробую, о результате опишусь.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@UEvgeniy 0 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 3

	DbGrid + два шт Lookupcombobox 28.02.2011, 10:14. Показов 2321. Ответов 4 Метки нет (Все метки) Всем здравствуйте! Помогите пожалуйста решить проблему. БД Interbase. На форме есть DBGrid с полями "Артикул1", "Артикул2", "Поставщик1", "Поставщик2". DbLookUpCombobox1 отображает поставщиков одного артикула, а DbLookUpCombobox2 отображает поставщиков второго артикула, все подключенны к одной таблице в БД. Очень хочется осуществить сортировку полей таблицы по значениям LookUpCombobox. Добавлено через 13 часов 23 минуты Или может там обычныe Dbcombobox нужны? Просто уровень моих позниний не высок, я только еще пытаюсь освоить delphi. 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	28.02.2011, 14:12
	Реализация того, что Вам необходимо зависит от того, как Вы формируете DataSet для грида (это таблица или селективный запрос) и от того, какими компонентами доступа к БД пользуетесь (BDE, InterBase, FIBPlus ...). Что - либо посоветовать можно только при наличии этой информации. 0

@UEvgeniy 0 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 3
	28.02.2011, 17:46 [ТС]
	Прошу прощения за скудность информации в педыдущем сообщении. В БД interbase подключаюсь к двум таблицам: 1. tConnect - заголовок соединений профилей (tb:8; fl:'aNum1'; tp:ftString; sz:15; id:1), // № арт. 1 (tb:8; fl:'aNum2'; tp:ftString; sz:15; id:1), // № арт. 2 (tb:8; fl:'pNum1'; tp:ftSmallInt; sz:0; id:1), // № пост-ка 1 (tb:8; fl:'pNum2'; tp:ftSmallInt; sz:0; id:1), // № пост-ка 2 (tb:8; fl:'cConn'; tp:ftInteger; sz:0; id:1), // уник. № (tb:8; fl:'cName'; tp:ftString; sz:32; id:0), // название 2. tPostavs - поставщики (tb:4; fl:'pName'; tp:ftString; sz:32; id:1), // название поставщика (tb:4; fl:'pNumb'; tp:ftSmallint; sz:0; id:1), // уник. № поставщика Использую компоненты interbase. IBTable1: TableName - TCONNECT, Datasource1: DataSet - IBTable1, IBTable2: TableName - TPOSTAVS, Datasource2: DataSet - IBTable2, IBQuery1: SQL - select * from TCONNECT, Datasource3: DataSet - IBQuery1. Подключение компонентов визуализации данных: DBLookUpCombobox1: DataSource - DataSource1, DataField - PNUM1; ListSource - DataSource2, ListField - PName, KeyField - PNumb. DBLookUpCombobox2: DataSource - DataSource1, DataField - PNUM2; ListSource - DataSource2, ListField - PName, KeyField - PNumb. DBGrid1: DataSource - DataSource3 0

@UEvgeniy 0 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 3
	01.03.2011, 05:46 [ТС]
	Спасибо большое за подсказку! Вечером попробую, о результате опишусь. 0