проблема с присвоением значения ячейки

[AniutA]

Здравствуйте...
Подскажите пожалуйста..

Вот у меня код проги:

procedure TFComboBox.DBLookupComboBox1Click(Sender: TObject);
var index: Integer;
begin
ADOQuery1.SQL.Text := 'SELECT SNomerStadii, SNazwanieStadii FROM ISStadija, Stadii WHERE ISNomerIS = ' + ADOQuery2.FieldByName('INomerIS').AsString;
ADOQuery1.Open;
  begin
    index :=  ???? ;
    if index <> index + 1 then ??? := True
    else ??? := False;
  end;
end;

Суть в том, что в DBLookupComboBox1 выбирается ИС, а в BDGrit выдаются соответствующие ИС Стадии...

Стадии у меня выдаются, только они выдаются столько раз, столько их общее кольчество у ИС. Например: У Производственной ИС 4 стадии - в Грид выдаются эти 4 стадии, но каждая Стадия повторяется 4 раза.

Поэтому нужно сделать мне проверку: Если Стадия уже есть в табл, то её не выдавать...

Значению index := (значение ячейки)...

Как-то так... Надеюсь, понятно объяснила

[Stilet]

Как-то так... Надеюсь, понятно объяснила

Не оч. но могу посоветовать попробовать

'SELECT DISTINCT SNomerStadii,...

[AniutA]

Аха...Спасибо Вам...
Написала вот так:

procedure TFComboBox.DBLookupComboBox1Click(Sender: TObject);
var index: Integer;
begin
ADOQuery1.SQL.Text := 'SELECT DISTINCT SNomerStadii, SNazwanieStadii FROM ISStadija, Stadii WHERE ISNomerIS = ' + ADOQuery2.FieldByName('INomerIS').AsString;
ADOQuery1.Open;
end;

Теперь мне для всех ИС выдаются ВСЕ Стадии, корве есть в БД

Например: У Производственной ИС 4 стадии - в Грид выдаются 8 - это общее кольчество Стадий в Базе Данных...

[Stilet]

FROM ISStadija, Stadii

Что это? Зачем ты таблицы сливаешь?
Как они между собой связаны и какая у них структура?
Ибо думаю тебе нужно использовать конструкцию LEFT JOIN а не то что ты написала

[AniutA]

В БД связные таблицы (Базу вложила...). Из них использую 3: InfS, ISStadija, Stadiii.

В ADOQuery1 прописано: SELECT * FROM Stadii, ISStadija WHERE SNomerStadii=ISNomerStadii

В ADOQuery2: SELECT * FROM InfS

[Stilet]

ADOQuery1.SQL.Text := 'SELECT ISNomerStadii FROM ISStadija WHERE ISNomerIS = ' + ADOQuery2.FieldByName('INomerIS').AsString;

Если я правильно понял...
Хотя сложно понять задание

[AniutA]

да, так работает всё, только не выдаются названия Стадий, а только их номера.