ник: kot_k_k
вот еще вариант - заносим только существующие поля с одинаковыми названиями.
For i = 1 To Рекодрсет_Отправитель.Fields.Count
Рекодрсет_Получатель(Рекодрсет_Отправитель(i).Name) = Рекодрсет_Отправитель(Рекодрсет_Отправитель(i).Name)
E_Net_: Next
Net_:
Resume E_Net_
|