| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программное создание ClientDataSet [D6]
nedden © (2002-05-22 13:01:00)Ника не получается ... Нужно создать Calculated fields ... Помогите кто сталкивался ... FieldDefs определил нормально а поля не добавить ...
denn (2002-05-22 15:00:00) [1]угу я как раз нашел ссылку
http://www.akzhan.midi.ru/devcorner/akdbtnt-content/akdbtnt-0006.html
спасибо
Romkin (2002-05-22 14:42:00) [2]Сорри, как всегда невнимательно прочел
Присвоение 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 13:29:00) [3]ээээх говорю же програмное создание в runtime ... так то я умею ...
Romkin (2002-05-22 13:15:00) [4]1. После определения FieldDefs по правой клавише мышки выбрать Create dataset
2. Открыть редактор полей, выбрать add all fields
3. Поставить active := false
4. ВВести вычислимые поля как надо
| |
