Код:
procedure TForm1.Button1Click(Sender: TObject);
var tblSbor: TTable; - может тут.
begin
Query1.Close;
Query1.SQL.Text:='SELECT d.kod, d.name, o.n FROM duh.dbf d, oper.dbf o, oper_ozo.dbf z WHERE d.type||d.subtype||d.kod = o.type||o.subtype||o.kod AND d.type||d.subtype||d.kod = z.type||z.subtype||z.kod';
Query1.Open;
if Query1.RecordCount>0
then
begin
tblSbor.Open;
while not Query1.Eof do
begin
tblSbor.Insert;
tblSbor.FieldByName('kod').Value:=Query1.FieldByName('kod').Value;
tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value;
tblSbor.FieldByName('n').Value:=Query1.FieldByName('n').Value;
tblSbor.Post;
Query1.Next;
end;
end
else ShowMessage('Ни одной записи не найдено');
end;
Админ: Пользуемся тегами для оформления кода!
если можно напишите какие настройти надо компаненте ставить.