FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Generar varios Reports
Hola.
Tengo una aplicación en la que, en un momento dado, lee datos de una tabla, y, dependiendo de esos datos, crea un nuevo form, y (dependiendo de otros campos) un nuevo informe (hecho con QuickReport). El código sería más o menos: Código:
With Query 1 do begin first; While not(eof) do begin if fields[1].AsInteger=1 then try application.createform(tform1, form1); form1.showmodal; finally form1.release; end if fields[2].AsInteger=1 then try application.createform(Tform2, form2); form2.quickrep1.preview; finally form2.release; end; Next; end; end; El caso es que hay veces que, aunque salga el error, la ejecución del programa no se interrumpe, y saca los dos Reports (con el único fastidio de que el usuario vea cada vez el error). Creo que el problema viene a la hora de generar el segundo report, ya que quitando esa parte de código, me funciona sin problemas. Agradecería una pequeña ayuda(hombre, si es grande, mejor). Un saludo. |
#2
|
|||
|
|||
Vale, cada día estoy peor.
No había visto este mensaje que es más o menos lo que me sucede a mi: mensaje Con la solución que da marcoszorilla (por cierto, gracias), se arregla el problema, por lo menos el mío. Simplemente añadiendo Application.ProcessMessages antes de liberar el form. Gracias de nuevo, y perdón por repetir post (había hecho la busqueda sobre el error "invalid floating ...." y no encontré ese mensaje). |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|