Miren este es el codigo que he puesto:
Código Delphi
[-]
For i:=0 to LBox_DatosImprimir.Count-1 do
if i=0 then
begin
Filtro:=LBox_DatosImprimir.Items.Strings[i];
end
else
begin
Filtro:=Filtro+' AND '+LBox_DatosImprimir.Items.Strings[i];
end;
QConsulta.Close;
QConsulta.SQL.Text:='SELECT * FROM Proveedores.db WHERE Proveedor IN(:valor)';
QConsulta.Params[0].AsString:=Filtro;
QConsulta.Open;
FrmProveedorInforme.Reporte1.DataSet:=QConsulta;
FrmProveedorInforme.Reporte1.Preview;
El reporte se muestra pero solo con el ultimo registro que introduje en la tabla, ni siquiera toma los valores de la consulta. Que pasa aki? Les ruego me respondan, lo estoy necesitando.
Suerte