saber el valor de un campo lookup de un dataset

[ecfisa]

Hola RedVenom.

No sé si estoy entendiendo bién lo que buscas obtener, por lo que te pongo un código de ejemplo donde se obtienen diferentes valores del campo Lookup que has creado en el DataSet.

Suponiendo que el campo se llame 'Lookup' sería:

Código Delphi [-]
begin
 if DataSet.FieldByName('Lookup').Lookup then
  with Memo1.Lines do
  begin
    Add('Nombre: '+DataSet.FieldByName('Lookup').Name);
    Add('Valor : '+DataSet.FieldByName('Lookup').AsString);
    Add('Tabla Lookup: '+DataSet.FieldByName('Lookup').LookupDataSet.Name);
    Add('Campo Lookup: '+DataSet.FieldByName('Lookup').LookupKeyFields);
    Add('Lookup result: '+DataSet.FieldByName('Lookup').LookupResultField);
    if DataSet.FieldByName('Lookup').LookupCache then
      Add('Lockup Cache: Activada')
    else
      Add('Lookup Cache: Desactivada');
  end;
end;

Saludos.

[RedVenom]

No el campo no se llama LookUp desde el editor de campos del DataSet cree un campo tipo LookUp y quier extraer el valor en el DBGrid Como si se tratara de un DBLookUpComboBox.

[ecfisa]

Hola.

No el campo no se llama LookUp

Era de esperar...

Es por eso que dije:

Suponiendo que el campo se llame 'Lookup'

La información obtenible de ese campo está en el mensaje anterior.

En cuanto a la aparición del valor en el DBGrid, cuando creas el campo lookup aparece automáticamente.
Pero no es así, si como comentas arriba, creaste los campos con el editor de columnas. En ese caso, desde el editor de columnas, sólo tenés que poner 'NombreDelCampoLookup' a la propiedad FieldName de la colúmna que agregaste para ese campo. (También podés elegirlo haciendo click como si fuese un ComboBox)

O por código, por ejemplo:

Código Delphi [-]
// Suponiendo que el campo Lookup corresponda a la última columna creada:
  DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:= 'NombreDelCampoLookup';

Saludos.

[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.