Ver Mensaje Individual
  #15  
Antiguo 15-11-2005
jlmelida jlmelida is offline
Miembro
 
Registrado: ene 2005
Ubicación: Alicante, España
Posts: 42
Reputación: 0
jlmelida Va por buen camino
Cita:
Empezado por jlmelida
Un problema es si el último registro no coincide con el final de la linea. Por ejemplo, si tu tabla tuviese 7 registros. te saldrá algo parecido a esto:

valor1 valor2 valor3 valor4 valor5
valor6 valor7 valor7 valor7 valor7.

¿ Como lo evitas ? Confío en ti, estoy seguro que lo lograras
Para que todo salga bien, en el evento on print debes preguntar si es o no el final de la tabla. Si no lo es, avanzas un registro. Si lo es, pones la variable con un string vacio:

if (not loquesea.eof) then
loquesea.next
else
Value := ''; // Asi no se escribe nada

En el evento onPrint del ultimo qrdbText de la linea ( que no usa el next) solo pones la segunda parte:

If (loquesea.eof ) then
Value := '';

Saludos
Responder Con Cita