saber el valor de un campo lookup de un dataset

[RedVenom]

Disculpen, creo que no me estoy dando a entender, ahi va de nuevo tengo un dataset1 y en ese dataset1 cree un campo calculado de tipo LookUp que alimenta sus propiedades LookUpKeyFields y LookUpResultField desde el dataset2 y luego el campo calculado que cree lo muestro a traves de un DBGrid y efectivamente el campo em lo muestra como un ComboBox hasta ahi todo bien el problema que tengo es que cuando en el DBGrid desplieguen el ComboBox y pongan o cambien el valor yo quiero obtener el valor real que se va a guardar en el campo no el que se muestra ya que ese es para que el usuario sepa lo que esta agregand a la base de datos, entonces en el caso de un DBLookUpComboBox lo obtengo con KeyValue pero en este caso con el campo calculado que esta en el DBGrid no se como obtenerlo.
Espero haberme explicado mejor.

[ecfisa]

Hola RedVenom.

Lo que buscas obtener... ¿ Es el valor por el cuál están relacionadas las propiedades KeyFields y LookupKeyFields ?

Si es así sencillamente sería:

Código Delphi [-]
  DataSet1.FieldByName('Cpo_Referencia').Value;

O desde el DBGrid:

Código Delphi [-]
  DBGrid1.DataSource.DataSet1.FieldByName('Cpo_Referencia').Value;

Para el ejemplo le puse el nombre: 'Cpo_Referencia', al campo declarado como KeyFields.

Si no es eso, me doy .

Saludos.

[RedVenom]

De hecho asi es de ese modo puedo obtener el dato pero seria hasta de despues de hacer el Post antes el cambio que yo realize no se ve reflejado en la base de datos solo lo muestra el dbgrid solo lo vere hasta que afecte la base de datos y no deseo afectar la base de datos hasta antes de saber el valor. por eso hacia mencion al DBLookUpComboBox porque con ese se el valor sin afectar mi base de datos, pero no lo utilizo porque no aplica ya que son varios registros por eso pongo DBGrid.

[ecfisa]

Hola RedVenom.

el campo em lo muestra como un ComboBox hasta ahi todo bien el problema que tengo es que cuando en el DBGrid desplieguen el ComboBox y pongan o cambien el valor yo quiero obtener el valor real que se va a guardar en el campo...

Tengo una duda... no me queda en claro si usas la propiedad PickList de Columns o lo haces mediante un ComboBox que incorporas al DBGrid.

Saludos.

[RedVenom]

Lo hago a traves de un campo calculado del dataset, solo creo el campo en el dataset y solo aparece en el DBGrid, no utilizo la propiedad PickList del DBGrid.

[ecfisa]

Hola.

Abrí el Field Editor y poné este código de ejemplo en el evento OnChange del campo Lookup que creaste:

Código Delphi [-]
procedure TForm1.DataSet2CampoLookupChange(Sender: TField);
begin
  DataSet1.Locate('CampoRefDataSet1',DBGrid2.SelectedField.AsString,[]);
  (* Aca realizas las acciones que te interesen.
     En el ejemplo muestra el campo y aborta la operación *)
  ShowMessage(DataSet1CampoRefDataSet1.AsString);
  Abort;
end;

Podés usar el ejemplo tranquilo ya que aborta toda operación.

'DataSet2CampoLookup' es el nombre del campo calculado, 'DBGrid2' está referenciando a 'DataSet2' y 'CampoRefDataSet1' es el campo que está declarado en la propiedad KeyFields del campo calculado del 'DataSet2' y corresponde al 'DataSet1'.

Toda esta parafernalia sobre los nombres es necesaria por que desconozco cuales usaste.


Saludos.

[RedVenom]

No pude ejecutar tu codigo como que le hace falta algo en el showmessage