Использование DBLookupComboBox

[rockedit]

Теперь пропиши этот код и скажи что выведет в сообшениях

procedure TForm3.FormShow(Sender: TObject);
var
 i: integer;
begin
 ComboBox1.Visible:=false;
 ComboBox1.Items.Clear;
 MessageDlg(Inttostr(ADOQuery1.RecordCount),mtError,[mbOk],0);
MessageDlg(BoolToStr( ADOQuery1.Active),mtError,[mbOk],0);
     //если таблица активна то
      if ADOQuery1.Active = true then
        //если етсь хоть одна строка в таблице
        if ADOQuery1.RecordCount <> 0 then
         Begin
           ComboBox1.Visible:=true;
           ComboBox1.Text := ADOQuery1.Fields.Fields[0].AsString;
           //Заполняем компонент
           ADOQuery1.First;
            for i := 1 to ADOQuery1.RecordCount do
              Begin
                ComboBox1.Items.Add(ADOQuery1.Fields.Fields[0].AsString);
                ADOQuery1.Next;
               end;
         end;

end;

Это во первых, а во вторых, ты кинула на форму DBGrid, посматрела результат своего запроса??

[Irina_87]

Какого запроса?? У меня же ничё не запрашивается. У меня идёт вставка строк

[rockedit]

Как это у тебя ничего не запрашиваетьс?) у тебя запрашиваеться столбец ID_postav таблицы Postavshik с сервера запросом

select ID_postav from Postavshik

в случае если этот запрос даст пустую таблицу у тебя в комбобокс ничего не будет, так я тебе и говорю, кинь на форму DBGrid и проверь что получилось в результате запроса!

[Irina_87]

Когда нажимаю на кнопку Добавить на Форме 2, он пишет - Cannot perfom this operation on a closed dataset

[rockedit]

Набор данных закрыт. проверь свойство ADOQuery.Active.

[Irina_87]

В таблицу выводит..

[rockedit]

а в комбобокс нет? страно(

 Query1.Open

Попробуй это написать после

 ComboBox1.Items.Clear;

Я тока что запустил у себя этот код и все работает!

[Irina_87]

Во, теперь стал выбирать)) Только до этого при нажатии на Добавить в Форме2 пишет какие-то сообщения в виде цифр

[rockedit]

Принскирин сделай если можно и выложи

[Irina_87]

Ой, я просто удалила вывод сообщений))) И теперь всё работает!!!))) Спасибо большое))))) И ещё маленький вопрос - я делаю такие запросы:

if RadioGroup1.ItemIndex=2 then
if Edit2.Text='' then
if Edit3.Text='' then
if Edit4.Text=''  then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'SELECT ID_zakaza,Kol_zakaz_izd, ID_pokup, Data_zakaza FROM Zakaz WHERE Zakaz.ID_zakaza =:ID3 and Zakaz.Data_zakaza=:Data1';
ADOQuery1.Parameters.ParamByName('ID3').Value:=Edit1.Text;
ADOQuery1.Parameters.ParamByName('Data1').Value:=Edit5.Text;
try
ADOQuery1.Open;
except
application.MessageBox('Íå ìîãó âûïîëíèòü çàïðîñ','Îøèáêà',MB_OK);
Edit1.Clear;
Edit5.Clear;
end;
end;
if RadioGroup1.ItemIndex=2 then
if Edit1.Text='' then
if Edit2.Text='' then
if Edit3.Text=''  then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'SELECT ID_zakaza,Kol_zakaz_izd, ID_pokup, Data_zakaza FROM Zakaz WHERE Zakaz.ID_pokup =:ID2 and Zakaz.Data_zakaza=:Data';
ADOQuery1.Parameters.ParamByName('ID2').Value:=Edit4.Text;
ADOQuery1.Parameters.ParamByName('Data').Value:=Edit5.Text;
try
ADOQuery1.Open;
except
application.MessageBox('Íå ìîãó âûïîëíèòü çàïðîñ','Îøèáêà',MB_OK);
end;
end;

Первый у меня работает, а когда делаю второй - он не работает.. Может я не там чё-то поставила??? Почему не работает???