Задача в следующем: Нужно создать dbf файл с такими параметрами
L_scet Numeric 14,0 Summa numeric 14,2 Character 12

после этого нужно сделать выборку из другого dbf файла и вписать данные в файл с такими параметрами L_scet Numeric 14,0 Summa numeric 14,2 Character 12


Как решалась эта задача через адо я читаю дбф - далее пытаюсь внести данные в таблицу с параметрами( L_scet Numeric 14,0 Summa numeric 14,2 Character 12)- таблица заранее создана в фоксе. Ругается делфи -Table ia busy.

вот код а чем проблема?
begin
table1.Active:=False;
table1.EmptyTable;
while not Query1.Eof
do
begin

table1.insert;
Table1.Fields[0]:=Query1.Fields[0];
Table1.FieldByName('L_schet').Asinteger:=Strtoint(Query1.FieldByName('Prim').AsString) ;
Table1.Fields[2]:=Query1.Fields[2];
Query1.next;
end;
end;

end.

Задача в следующем: Нужно создать dbf файл с такими параметрами
L_scet Numeric 14,0 Summa numeric 14,2 Character 12

после этого нужно сделать выборку из другого dbf файла и вписать данные в файл с такими параметрами L_scet Numeric 14,0 Summa numeric 14,2 Character 12


Как решалась эта задача через адо я читаю дбф - далее пытаюсь внести данные в таблицу с параметрами( L_scet Numeric 14,0 Summa numeric 14,2 Character 12)- таблица заранее создана в фоксе. Ругается делфи -Table ia busy.

вот код а чем проблема?
begin
table1.Active:=False;
table1.EmptyTable;
while not Query1.Eof
do
begin

table1.insert;
Table1.Fields[0]:=Query1.Fields[0];
Table1.FieldByName('L_schet').Asinteger:=Strtoint(Query1.FieldByName('Prim').AsString) ;
Table1.Fields[2]:=Query1.Fields[2];
Query1.next;
end;
end;

end.