Columnas adicionales en TDBGrid

[noob]

Ya te entiendo, he sacado un TDBGrid, dos TDataSource y dos dataset, mi estructura es la siguiente:

DBGrid1 --> DataSourceVentas --> DataSetVentas
DataSourceProductos --> DataSetProductos

he hecho esto pero no ocurre nada de nada, simplemente están todos los campos de la tabla Ventas pero no hay ningún botón en el campo Producto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with DatasetVentas do
    begin
      Open;
      FieldByName('Producto').LookupDataSet := DatasetProductos;
      FieldByName('Producto').LookupKeyFields := 'Codigo; Descripcion';
      FieldByName('Producto').LookupResultField := 'Codigo';
    end;
end;

¿Falta algo?

Un saludo.

[PepeLolo]

Cuando piensa abrir DataSetProductos, supongo que has añadido los campos de DataSetVentas al dbgrid. Por último cuando en el DBGrid pulses sobre el botón del campo "Producto" se desplegará el lookup.

un saludo.

[noob]

Empezado por PepeLolo

Cuando piensa abrir DataSetProductos

Lo abro antes de asignar las propiedades Lookup.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with DatasetVentas do
    begin
      Open;
      DatasetProductos.Open;
      FieldByName('Producto').LookupDataSet := DatasetProductos;
      FieldByName('Producto').LookupKeyFields := 'Codigo; Descripcion';
      FieldByName('Producto').LookupResultField := 'Codigo';
    end;
end;

Empezado por PepeLolo

supongo que has añadido los campos de DataSetVentas al dbgrid

Sí, están añadidos.

Empezado por PepeLolo

Por último cuando en el DBGrid pulses sobre el botón del campo "Producto" se desplegará el lookup.

No sale ningún botón en el campo Producto.

¿Qué está fallando?

Saludos.

[[Al González]]

¡Hola!

Hace varios años que no creo campos de búsqueda (lookup fields), pero trataré de orientar un poco.

Son cuatro las propiedades especiales involucradas en la definición de un campo de búsqueda: KeyFields (el campo "apuntador" en la tabla de captura), LookupDataSet (la tabla en donde se buscará), LookupKeyFields (el campo de LookupDataSet que debe coincidir con el campo KeyFields de la tabla de captura) y LookupResultField (el campo de LookupDataSet cuyo valor es el que se "verá").

Además la propiedad FieldKind del campo de búsqueda debe tener un valor de fkLookup.

En el cuadro de diálogo New Field (cuyo caption debería ser "New field" ) de Delphi 7 y otras versiones, hay cinco controles que representan a las cinco anteriores propiedades que mencioné. En Field type debes seleccionar la opción "Lookup" y luego rellenar los cuatro cuadros contenidos en el grupo "Lookup definition".

El botón Help que ahí se encuentra te permite llegar con relativa facilidad al tema "Defining a lookup field" de la ayuda de Delphi, el cual está ampliamente explicado.

De cualquier forma en estos foros ya se ha tratado con anterioridad el tema de los campos lookup, así que, buscando un poco más, haciendo pruebas y retroalimentando este hilo, llegarás pronto a buen puerto.

Ante cualquier duda no dejes de preguntar.

Saludos.

Al González.

[noob]

Empezado por Al González

En el cuadro de diálogo New Field (cuyo caption debería ser "New field" ) de Delphi 7 y otras versiones, hay cinco controles que representan a las cinco anteriores propiedades que mencioné. En Field type debes seleccionar la opción "Lookup" y luego rellenar los cuatro cuadros contenidos en el grupo "Lookup definition".

El problema es que debo de hacerlo todo por código porque mi dataset no me permite hacerlo de otro modo. ¿Se puede hacer por código?

[[Al González]]

Empezado por noob

El problema es que debo de hacerlo todo por código porque mi dataset no me permite hacerlo de otro modo. ¿Se puede hacer por código?

Eso cuesta trabajo creerlo, ¿qué componente es? ¿Qué pasa cuando le das doble clic en tiempo de diseño? (al data set, no a la rejilla)

[luisgutierrezb]

a mi tambien me cuenta creerlo que no tenga esa opcion, conste que es dataset y no datasource y el dataset puede ser un TTable, TQuery, AdoQuery, ZQuery, IBQuery, etc, etc, es la parte donde le das la instruccion SQL o le dices que tabla va a abrir

[noob]

Empezado por Al González

Eso cuesta trabajo creerlo, ¿qué componente es?

Es un componente TSQlite3Dataset.

Empezado por Al González

¿Qué pasa cuando le das doble clic en tiempo de diseño? (al data set, no a la rejilla)

Me sale un editor de tablas Sqlite para cree una tabla.