franharo
11 de Octubre del 2008

Hola a todos! necesito imprimir un listado de productos que saco de un DBGrid a los
TQRLabel del QReport, hasta aqui todo bien, ahora necesito imprimir ademas una imagen
que tengo en la tabla en paradox,que cargo al DBGrid, se que debo hacerlo con el QrDbImage, pero
como hago para sacarlo de la tabla? Alguna sugerencia? Lo estoy trabajando asi a los campos texto.

campo:array of TQRLabel;
begin
band:=false;
px:=115;
begin
SetLength(campo, fventa.DBGrid2.DataSource.DataSet.RecordCount);
fventa.DBGrid2.DataSource.DataSet.First;
For n := 0 to (fventa.DBGrid2.DataSource.DataSet.RecordCount) - 1 do
if band=false then
begin
Campo[n] := TQRLabel.Create(Quick);
Campo[n].Caption :=fventa.DBGrid2.DataSource.DataSet.FieldValues['cant'];
campo[n].Parent:=Quick;
Campo[n].Top := px;
Campo[n].Left := 65;
Campo[n].Visible := true;
Campo[n].Transparent := False;
//asi con cada campo. y deberia acompañar la foto del mismo
fventa.DBGrid2.DataSource.DataSet.Next;
px:=px+14;

end
else
begin
total.Left:=375;
total.Top:=635;
total.Caption:='Total $ '+fventa.Edit3.Text;
end;