Как при запросе открыть таблицу Repair и добавить в неё новые данные, согласно этого листинга.

[TitAn]

Как при запросе открыть таблицу Repair и добавить в неё новые данные, согласно этого листинга.

procedure TForm1.N50Click(Sender: TObject);
begin
Query1.Active:=False;
Query1.sql.Clear;
Query1.sql.Add('select RegNum,Designation,Type,Status *
from BCK,Trans,Wire
where Status="В ремонте"');
Query1.Active:=True;
end;

[Pitbull]

Сообщение от TitAn

Как при запросе открыть таблицу Repair и добавить в неё новые данные, согласно этого листинга.

procedure TForm1.N50Click(Sender: TObject);
begin
Query1.Active:=False;
Query1.sql.Clear;
Query1.sql.Add('select RegNum,Designation,Type,Status *
from BCK,Trans,Wire
where Status="В ремонте"');
Query1.Active:=True;
end;

repeir.edit;
insert into Repeir( Поля) Values (значения);
repeir.post

[Pitbull]

Сообщение от Pitbull

repeir.edit;
insert into Repeir( Поля) Values (значения);
repeir.post

тут вместо Values напиши свой запрос select .... А если тебе нужно просто значения какие-то встрямить, то просто Values..... Но тебе походу нужен Select