Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.09.05;
Скачать: CL | DM;

Вниз

Динамически-создаваемые поля.   Найти похожие ветки 

 
DROWSY   (2010-06-08 15:01) [0]

Если добавлять поле типа fkLookup или fkCalculated в Fields динамически, то как правильно это сделать?
В обработчике события DataSet.BeforeOpen - добавить, в DataSet.AfterClose - удалить, или как-то иначе?


 
Медвежонок Пятачок ©   (2010-06-08 15:10) [1]

манипуляции с TFieldDefs до открытия датасета.


 
DROWSY   (2010-06-08 17:11) [2]

Спасибо!


 
DROWSY   (2010-06-08 17:18) [3]

Сделал так, верно?

procedure TdmMills.ibMillsBeforeOpen(DataSet: TDataSet);

var i : integer;
   look_fld : TStringField;
begin
 DataSet.Fields.Clear;
 DataSet.FieldDefs.Update;

 for i := 0 to DataSet.FieldDefs.Count -1 do
   DataSet.FieldDefs[i].CreateField(DataSet);

 look_fld := TStringField.Create(DataSet);
 look_fld.Size := 25;
 look_fld.FieldName := "TYP_STR";
 look_fld.FieldKind := fkLookUp;
 look_fld.KeyFields := "TYP";
 look_fld.LookupDataSet := ibMills_Type;
 look_fld.LookupKeyFields := "CODE";
 look_fld.LookupResultField := "TYPE_STR";
 look_fld.DataSet := DataSet;
end;


 
Медвежонок Пятачок ©   (2010-06-08 17:19) [4]

сначала филддефс.апдейт.
затем добавляем туда вычисляемые поля.
затем цикл и создание тфилд"ов
потом открываем


 
DROWSY   (2010-06-08 17:53) [5]

Большое спасибо, Медвежонок Пятачок, за ликбез! :)



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
2-1275991560
Cannon
2010-06-08 14:06
2010.09.05
Авторизация


15-1276254260
novichek
2010-06-11 15:04
2010.09.05
SQL Microsoft.Jet.OLEDB.4.0? Access


15-1276107937
da4
2010-06-09 22:25
2010.09.05
Онлайн музыка


2-1276153349
Sergey2
2010-06-10 11:02
2010.09.05
длина запроса в AdoQuery.sql.text


15-1276163521
bss
2010-06-10 13:52
2010.09.05
Работа TDateTime в отрицательном диапазоне