ну вот хранится незнаю как и почему.
тогда вот так формируется наверное
Код:
Query1.Open;
if Query1.RecordCount>0
then
begin
tblSbor.TableName:='sbor.dbf';
tblSbor.Open;
while not Query1.Eof do
begin
tblSbor.Insert;
tblSbor.FieldByName('nist').Value:=Query1.FieldByName('nist').Value;
tblSbor.FieldByName('kodn').Value:=Query1.FieldByName('kodn').Value;
tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value;
tblSbor.FieldByName('dpo').Value:=Query1.FieldByName('dpo').Value;
tblSbor.FieldByName('otd').Value:=Query1.FieldByName('otd').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;
end;
end
else ShowMessage('Ни одной записи не найдено');