27.08.2011, 21:17
|
|
Новичок
|
|
Регистрация: 16.09.2010
Сообщения: 61
Репутация: 10
|
|
Проблема решена!
Код:
procedure TCForm.RecuestViewDblClick(Sender: TObject);
var i:integer;
begin
for i:=0 to r-1 do
begin
if Zapros[i].Name=RecuestView.Items[RecuestView.ItemIndex].Caption then
begin
ADOdch.Close;//закрываю дочерний Query
ADOgl.Close;//закрываю родительский Query
ADOgl.SQL.Clear;
ADOgl.SQL.Add(zapros[i].SQL1);//здесь добавляется первый запрос
ADOdch.SQL.Clear;
ADOdch.SQL.Add(zapros[i].SQL2);//----второй запрос
ADOdch.Open;//не знаю почему, но после такой перестановки все заработало как надо
adogl.Open;
ADOdch.Close;
ADOdch.Open;
break;
end;
end;
end;
|