[Justin]

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

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

Код:

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 для выборки городов содержит:

Код:

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

вот строчка

Код:

where IDOblast=IDObl

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