| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование [D6, Paradox]
NaPoleOn_IV © (2003-01-14 21:55:00)Уважаемые Мастаки, помогите! Как программно копировать данные из ячейки одной таблицы в ячейку другой таблицы.
Кстати с прошедшим Старым Новым Годом.
Andrey V. (2003-01-15 07:51:00) [1]Вот реальный пример из моей программы , копирует правда все
поля , но думаю , разберешься
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;
Наталия (2003-01-15 05:47:00) [2]table1.append;
table1.fields[0].as...=table2.fields[0].as...
table1.post;
| |
