[Lazarus-es] SQLite: ¿Cómo crear campos lookup?

[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-ide.org/pipermail/lazarus-es/attachments/20081224/8fd17288/attachment-0001.html>