Форум: "Базы";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];

Вниз

Программное создание ClientDataSet   Найти похожие ветки 

← →
nedden   (2002-05-22 13:01) [0]

Ника не получается ... Нужно создать Calculated fields ... Помогите кто сталкивался ... FieldDefs определил нормально а поля не добавить ...

---

← →
Romkin   (2002-05-22 13:15) [1]

1. После определения FieldDefs по правой клавише мышки выбрать Create dataset
2. Открыть редактор полей, выбрать add all fields
3. Поставить active := false
4. ВВести вычислимые поля как надо

---

← →
denn   (2002-05-22 13:29) [2]

ээээх говорю же програмное создание в runtime ... так то я умею ...

---

← →
Romkin   (2002-05-22 14:42) [3]

Сорри, как всегда невнимательно прочел
Присвоение Field.Dataset должно быть после присвоения FieldName

var
AField: TField;
begin
cds.Active := False;
AField := TCurrencyField.Create(self);
with AField do
begin
FieldKind := fkInternalCalc;
FieldName := "Summa";
Dataset := cds;
end;
//cds.Fields.Add(AField);
cds.Active := True;
with cds do
begin
First;
while not EOF do
begin
Edit;
FieldByName("Summa").asCurrency :=
FieldByName("Price").asCurrency * FieldByName("CountNum").AsInteger;
Post;
Next;
end;
end;
end;

---

← →
denn   (2002-05-22 15:00) [4]

угу я как раз нашел ссылку
http://www.akzhan.midi.ru/devcorner/akdbtnt-content/akdbtnt-0006.html
спасибо

---

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

Форум: "Базы";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c