Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: 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 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.036 c
6-1100943955
Неизвестный
2004-11-20 12:45
2005.02.06
Проблема с отправкой писем


6-1100719597
dablin
2004-11-17 22:26
2005.02.06
отправка сообщения другому компу


1-1106652576
vint45
2005-01-25 14:29
2005.02.06
Динамические массивы


14-1105870540
REA
2005-01-16 13:15
2005.02.06
Игра "Монолит"


1-1106608318
netmouse
2005-01-25 02:11
2005.02.06
Возможно ли указать текст в виде ссылки (подчеркнутый)