Ver Mensaje Individual
  #2  
Antiguo 08-12-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Luis.

Una opción es que crees en tu componente dataset un campo persistente (calculado de tipo string) con una longitud igual a la suma de campo CODIGO + espacio + divisor + espacio + longitud del campo FAMILIA.

Ese campo calculado (llamémosle CALCULADO ) será quién aparezca en la propiedad ListField del TDBLookupComboBox.

Por último agregas un poco de código al evento OnCalcFields del DataSet:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  if Assigned(tuDataModule) then
    tuDataModule.tuDataSet.OnCalcFields := tuDataSetCalcFields;
  // else (El DataModule debería estar creado...)
end;

procedure TForm1.tuDataSetCalcFields(DataSet: TDataSet);
begin
  tuDataModule.tuDataSetCalculado.AsString := Format('%s - %s',
    [tuDataModule.tuDataSetCODIGO.AsString,
     Trim(tuDataModule.tuDataSetFAMILIA.AsString)]);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  tuDataModule.tuDataSet.OnCalcFields := nil;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita