Скачать: CL | DM;

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

← →
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;


---

← →
sergeii ©   (2005-01-06 16:37) [6]

:))) SPASIBO

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c