[lexy]

Всем доброго времени суток!

На форме имеются 2 DBGrid-а. Подскажите как сделать так чтобы не было повторного переноса одной и той же записи.

[NumLock]

уникальный индекс создать

[lexy]

Сообщение от NumLock

уникальный индекс создать

создан, что потом даже и не знаю (я новичок )

[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 методы и свойства называются так же, как и в стандартных компонентах, так что проверь имена. Логика того или иного свойства, мне кажется, понятна из его имени.

[lexy]

Сообщение от 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 методы и свойства называются так же, как и в стандартных компонентах, так что проверь имена. Логика того или иного свойства, мне кажется, понятна из его имени.

хотелось бы копировать не все поля с таблицы, а только пожеланию

[lmikle]

Господя!!!
Ну сделай массив с именами полей и обращайся к ним через FieldByName. Неужели так трудно самому догадаться?..