Задача в следующем: Нужно создать 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.
|
|
