lCount := Table1.FieldCount;
for i := 0 to lCount - 1 do
if (not Table1.Fields[i].IsNull) and (Table1.Fields[i].CanModify) then
Table2.FieldByName(Table1.Fields[i].FieldName).Assign(Table1.Fields[i]);
Работа с таблицами |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Работа с таблицами |
guest |
Сообщение
#1
|
Гость |
Уважаемые эксперты подскажите пожалуйста что нужно написать для правильной работы программы. Существуют 2 таблицы(одна заполнена данными, другая пустая), по нажатию кнопки необходимо сделать так, чтобы одна из записей первой таблицы была перенесена во вторую. Обе таблицы сделаны через Database Desktop. я нашел похожую программу, но там данные не сохраняются в таблице и при каждый раз данные замещают друг друга, а необходимо чтобы они добавлялись к уже существующим.
lCount := Table1.FieldCount; |
guest |
Сообщение
#2
|
Гость |
Ну неужели никто не может помочь? Есть и другой вариант, но он некорректно работает
Table2.Edit; |
Текстовая версия | 29.03.2024 9:25 |