Ver Mensaje Individual
  #2  
Antiguo 28-02-2008
Jabi Jabi is offline
Miembro
 
Registrado: may 2004
Posts: 10
Reputación: 0
Jabi Va por buen camino
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;
Responder Con Cita