[Justin]

Добрый день!
Существует база, в которой есть множество таблиц. 2-е из них - таблицы Областей и Городов.
Нужно что бы при выборе Области в 1-м ComboBox-е, в другом появлялись Города, соответствующие только этой области.

В событии OnChange 1-го ComboBox-а пишу:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TFormPacient.OblastChange(Sender: TObject); var IDObl:Integer; begin IDOblast.itemIndex:=Oblast.ItemIndex; IDObl:=StrToInt(IDOblast.Text); PacientCity.active:=true; IDCity.clear; City.clear; if not PacientCity.isEmpty then begin   PacientCity.First;   repeat     IDCity.items.add(PacientCity.fieldbyname('IdCity').asString);     City.items.add(PacientCity.fieldbyname('NCity').asString);     PacientCity.next;   until PacientCity.eof; IDCity.itemindex:=0; City.itemindex:=0; PacientCity.active:=false; end; end;

SQLQuery для выборки городов содержит:

Код:

1 2 3 4

Select IDCity,IDOblast, NCity from City where IDOblast=IDObl order by NCity

вот строчка

Код:

1	where IDOblast=IDObl

и не рабоатет.

[Pilot_Red]

проблема решается без одной строчки кода, при условии если есть поле по которому можно связать две таблицы (один ко многим)!
Если есть то:
1. Связываешь эти таблицы
2. Добавляешь на форму DBLookupComboBox(вкладка Data controls)
3. в свойстве ListSources выбираешь соурс регионов, в listfild выбираешь поле названия региона, а в keyfild индексное поле.
И вуоля, автоматика!!!!

[vs259]

Именно - две таблицы, если на втором месте оставите запрос, то его связать не получится

[Justin]

Что-то я не совсем понял...
НАпрмиер у меня на форме 4 ComboBox-a. В 1 название Обалстей, во-втором их ID. В 3 - Названия городов, а в 4 - ID этих городов.
Так вот нужно, что бы при выборе Области в 1 CB, для 3 CB сформировался (отфильровался) список городов по ID (из 2 CB).

[Assistant]

вам же уже ответил Pilot_Red, почитайте в инете про MasterSource и MasterFields у компонентов TTable (TQuery) или какие вы там используете компоненты для доступа к таблицам.

[Justin]

Сделал все, как сказал Pilot_Red, но чего-то не получилось. Получается у меня должны быть зависимость (фильтр) в таблице Города от ID Области. Соответственно должна быть произведена выборка по ID. А получается, что у компонента DBLookupComboBox нет связи с ComboBox-ом...

[Vocabulary]

Один из вариантов решения задачки.
Нет нужды применять два комбобокса (один для текста, другой для идентификатора). ID может храниться в том же комбобоксе что и текст.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TFormPacient.OblastChange(Sender: TObject); var IDObl:Integer; begin   IDOblast.itemIndex:=Oblast.ItemIndex;   IDObl:=StrToInt(IDOblast.Text);   PacientCity.Open;   City.clear;   PacientCity.First;   while not PacientCity.Eof do begin     City.AddItem(PacientCity.FieldValues['NCity'],                      TObject(PacientCity.FieldValues['IDCity']));     PacientCity.next;   end;   City.itemindex:=0;   PacientCity.Close; end; //получения сохраненного значения ID: //  if City.ItemIndex > -1 then //    IDCity := Integer(City.Items.Objects[City.ItemIndex]);

Если IDObl переменная целого типа (Integer), то ее значение в запросе необходимо конвертировать в строку (SQL запрос - это текст)

Код:

1	'where IDOblast='+IntToStr(IDObl)

Если запрос сформирован в редакторе, то IDObl должен быть параметром:

Код:

1 2 3 4

select IDCity,IDOblast, NCity from City where IDOblast = :IDObl order by NCity

И перед открытием датасета нужно присвоить этому параметру значение:

Код:

1	DS.ParamByName('IDObl').Value := IDObl; //имена параметров и переменных не обязательно должны совпадать

[Justin]

Вот здорово, буду пробовать!