[Andrej-zhe]

Посмотрите пожалуйста добавляю данные из др таблицы. Правильно код будет выглядеть теперь?!

Код:

Query1.SQL.Text:='SELECT d.kodn, d.name, o.n, fio, date_wz, dp, dw FROM duh.dbf d, oper.dbf o, oper_ozo.dbf z, mklh.dbf m WHERE (d.type = o.type and d.subtype = o.subtype and d.kod = o.kod) AND (d.type = z.type and d.subtype = z.subtype and d.kod = z.kod) AND (o.n = m.nk)';
Query1.Open;
if Query1.RecordCount>0
  then
  begin
  tblSbor.TableName:='sbor.dbf';
  tblSbor.Open;
  while not Query1.Eof do
    begin
    tblSbor.Insert;
    //tblSbor.FieldByName('n').Value:=Query1.FieldByName('n').Value;
    tblSbor.FieldByName('kodn').Value:=Query1.FieldByName('kodn').Value;
    tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value;
    tblSbor.FieldByName('fio').Value:=Query1.FieldByName('fio').Value;
    tblSbor.FieldByName('date_wz').Value:=Query1.FieldByName('date_wz').Value;
    tblSbor.FieldByName('dp').Value:=Query1.FieldByName('dp').Value;
    tblSbor.FieldByName('dw').Value:=Query1.FieldByName('dw').Value;
    tblSbor.Post;
    Query1.Next;