dxDBGrid

Angellore
Дата: 12.11.2007 12:37:12
Есть д иксовый грид.
Подскажите, пожалуйста как в рантайме создать лукапное поле, потому что банасльное
with cdsDBColls do
begin
for i := 0 to cdsDBColls.FieldCount - 1 do
begin
if Pos('look', Fields.FieldName) > 0 then
with Fields do
begin
FieldKind := fkLookup; (********)
LookupDataSet := cdsProt;
KeyFields := copy(FieldName, 1, Pos('look', FieldName) - 1);
LookupKeyFields := cdsProt.Fields[1].FieldName;
LookupResultField := cdsProt.Fields[1].FieldName;
end;
end;

не канает.
Это все пишу после создания соответствующих филдов.
При попытке изменить филдкайнд (********)говорит, что нельзя это выполнять с открытым датасетом.
Angellore
Дата: 12.11.2007 13:15:53
Помогите пожалуйста создать в рантайме лукапное поле для датасета.
Использую TClientDataSet