Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2008-12

SQLite: ¿Cómo crear campos lookup?

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

User

Hola, tengo dos componentes TSQLite3Dataset:

DatasetVentas con los campos: Codigo, Producto, Cantidad, Precio, Proveedor DatasetProductos con los campos: Codigo, Descripci�n

Tengo un componente TDBGrid que muestra los datos de DatasetVentas.

Quiero crear un campo lookup asociado al campo Producto de DatasetVentas para mostrar los campos Codigo y Descripcion de DatasetProductos.

He hecho esto:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with DatasetVentas do
  begin
  Open;
  DatasetProductos.Open;
  FieldByName('Producto').FieldKind := fkLookup;
  FieldByName('Producto').LookupDataSet := DatasetProductos;
  FieldByName('Producto').LookupKeyFields := 'Codigo; Descripcion';
  FieldByName('Producto').LookupResultField := 'Codigo';
  end;
end;

pero no ocurre nada.

�Por qu�?

Gracias y feliz Navidad.
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20081224/8fd17288/attachment.html>

Reply by email