Цитата:
Сообщение от lmikle
Next не пробовал вызывать
Код:
ZQuery2.First;
While Not ZQuery2.EoF Do
Begin
ZQuery1.Insert;
For I := 0 To ZQuery2.FieldsCount-1 Do
ZQuery1.FieldbyName(ZQuery2.Fields[i].FieldName).Value := ZQuery2.Fields[i].Value;
ZQuery1.Post;
ZQuery2.Next; // move to next record
End;
ЗЫ. Если в наборе данных есть BLOB поля, то их надо обрабатывать особым образом. А таким кодом скопируются все поля (вне зависимости от порядка полей, надо только что бы все поля датасета-источника присутствовали в датасете-приемнике).
ЗЗЫ. Не уверен, что Zeos методы и свойства называются так же, как и в стандартных компонентах, так что проверь имена. Логика того или иного свойства, мне кажется, понятна из его имени.
|
хотелось бы копировать не все поля с таблицы, а только пожеланию