|
resolución-campo fklookup en tiempo ejecución
finalmente lo único que se me ha ocurrido es generar el campo fklookup en tiempo de ejecución, así pues, lo que hago es una consulta para ver el estado del campo y si no es un campo codificado lo trato de una manera, y cuando el campo es codificado entonces genero el campo flklookup de la siguiente manera:
with TStringField.Create(MiDataSet) do
begin
FieldName := 'FieldName';
FieldKind := fkLookup;
DataSet := MiDataSet;
Name := MiDataSet.Name + FieldName;
KeyFields := 'MiKeyFields';
LookupDataSet := MiLookupDataSet;
LookupKeyFields := 'MiLookupKeyFields';
LookupResultField := 'MiLookupResultField';
MiDataSet.FieldDefs.Add(FieldName, ftString, 50, False);
end;
|