[anubis]

No no,

Tengo esto:

Código Delphi [-]
fmodulo.zqcortesventas.SQL.Clear;
fmodulo.zqcortesventas.SQL.Text:='select a.* from cortesventas a where  a.id_corte =:corte';
fmodulo.zqcortesventas.ParamByName('corte').asinteger:=corte;
fmodulo.zqcortesventas.active:=true;

Código Delphi [-]
Campo                 := Tstringfield.Create(fmodulo.zqcortesventas);
   Campo.FieldName       := 'nombrepro';
    campo.size               :=100;
   campo.FieldKind       :=fklookup;
   campo.keyfields        :='id_producto';
   campo.lookupdataset   :=fmodulo.zqproductos;
   campo.lookupkeyfields :='id_producto';
   campo.lookupresultfield:='nombreproducto';
   Campo.DataSet         := fmodulo.zqcortesventas;

No tardada nada sino lo ordeno, si lo ordeno si, tiene que hacer el select de arriba, acceder a la tabla de productos y sacar el nombre.

Ya lo arregle de otra forma y parece que si es rapido y funciona. Lo que tiene no pensar .

Código Delphi [-]
fmodulo.zqcortesventas.SQL.Clear;
fmodulo.zqcortesventas.SQL.Text:='select a.*,b.id_producto,b.nombreproducto as nombrepro from cortesventas a, productos b where a.id_producto=b.id_producto and a.id_corte =:corte';
fmodulo.zqcortesventas.ParamByName('corte').asinteger:=corte;
fmodulo.zqcortesventas.active:=true;

En la creacion del campo solo cree el campo nombrepro y ya trabaja rapido, en vez de usar un fklookup.