Копирование полей

← →
sergeii © (2005-01-06 14:42) [0]

Может кто может подсказать как мне скопировать всио поле в туже таблицу в её конец. (Как это сделать правельно). Может кто может кинуть примерчик. База парадокс

← →
msguns © (2005-01-06 14:50) [1]

???

Если я правильно понял, надо всю первую запись скопировать так, чтобы ее копия оказалась последней в отображаемой таблице.

А нафига ?

← →
Anatoly Podgoretsky © (2005-01-06 14:53) [2]

Что ты хочешь сделать?

← →
sergeii © (2005-01-06 15:45) [3]

ja pishu programu k tablice uzhe sushestvujushei i mne nado sozdavat" stroki takie kak pervaja. V stroke est" skol"koto nemeniaemix jacheek i skol"koto meniaemix, meniaemix tolko 5 jacheek a ne menejamix 29 jacheek.
Vot dlia etogo i nado. Zachem nuzhno stoko odinakovyx jachejek ja ne znaju, po tomu kak ne moja baza.

← →
msguns © (2005-01-06 15:48) [4]

Да, случай тяжелый. Потому, что "базу", видимо, проектировал крутой перец. Усугубляется еще тем, что знания Сергейя о базах данных, видимо, исчерпываются екселем.

Ничего, кроме усиленного чтения всевозможной литературы, посоветовать не могу, увы..

← →
DSKalugin © (2005-01-06 16:16) [5]

Вопрос ясен. "А Нафига" это уже другой вопрос для которого можно открывать отдельную ветку (в орешнике)
Ответ таков:
// Добавление копии текущей записи в конец таблицы {P.S. Все это работает только при отсутствии сортировки (без использования индексов)} var Nafiga: Variant; fi,fc:Byte; begin fc:=Table666.FieldCount-1; Nafiga:=VarArrayCreate([0,fc], varVariant); for fi:=0 to fc do Nafiga[fi]:=Table666.fields[fi].Value; Table666.Append; for fi:=0 to fc do Table666.fields[fi].Value:=Nafiga[fi]; Table666.Post; Table666.Refresh; end;

:))) SPASIBO

за итальянское SPASIBO
украинское будь ласка
:)))
Там если не все значения полей копировать, то некоторые вручную потом подправить можно типа
Table666.fields[8].Value:=Edit666.text;
перед строкой
Table666.Post;

Копирование полей Найти похожие ветки