Cita:
Empezado por j_flores3000
Muchas gracias por todo lo comentado hasta ahora. Es que tengo que insertar en un quick report todos los items que haya en el listbox pero que sean en qrtext distintos. Por eso queria pasarlos a variables de texto y de ahi asignarlos a los qrtext ( En un quick report). Lo que me doy cuenta ahora es que puedo asignarlos desde los items.
Los items estan en un formulario y el quick report en otro. Es para hacer facturas y necesito poner los productos que compre en lineas total mente distintas se ve?
Bien el problema restante es que los items los voy agregando yo y a veces son 50 items o aveces 2 se ve??
|
Cita:
Empezado por j_flores3000
...igualmente sigo buscando la solucion a mi problema hice varias pruebas pero sigue sin salir!
|
Hola de nuevo, esos eran los detalle que te pedíamos para poder ayudarte mejor y ver otras alternativas en vez de pasarlos a variables.
´
Volviendo a tu pregunta, para pasar los items del ListBox a tu QuickReport lo puedes hacer de la siguiente forma:
Necesitas utilizar el evento OnNeedData de tu QuickReport, colocas una banda con BandType rbDetail y ahí dentro un qrLabel.
Código Delphi
[-]
Indice : Integer;
.................
.................
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
MoreData := Indice <= FormListBox.ListBox1.Count-1;
if MoreData then
qrLabel1.Caption := FormListBox.ListBox1.Items[Indice];
Inc(Indice);
end;
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
Indice := 0;
end;
Pero deberías considerar utilizar una base de datos.
Saluditos