Копирование

← →
NaPoleOn_IV (2003-01-14 21:55) [0]

Уважаемые Мастаки, помогите! Как программно копировать данные из ячейки одной таблицы в ячейку другой таблицы.
Кстати с прошедшим Старым Новым Годом.

← →
Наталия (2003-01-15 05:47) [1]

table1.append;
table1.fields[0].as...=table2.fields[0].as...
table1.post;

← →
Andrey V. (2003-01-15 07:51) [2]

Вот реальный пример из моей программы , копирует правда все
поля , но думаю , разберешься

procedure TMainForm.TableToTable(DestTable,SourcTable:tDataSet);
var
i,j:integer;
begin
if DestTable.State in [dsEdit,dsInsert] then
for I := 0 to DestTable.FieldCount - 1 do begin
if not (DestTable.Fields[I].DataType=ftAutoInc) then begin
for j:=0 to SourcTable.FieldCount - 1
do if DestTable.Fields[I].FieldName=SourcTable.Fields[j].FieldName
then DestTable.Fields[I].Assign(SourcTable.FieldByName(DestTable.Fields[I].FieldName));
end;
end;
end;

Копирование Найти похожие ветки