Ver Mensaje Individual
  #3  
Antiguo 29-08-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Luis.
Cita:
Empezado por luis77 Ver Mensaje
...
el detalle esta en que cuan ejecuto la aplicacion solo le doy click si me extrae los datos
pero cuando quiero volver a dar click ya no .
...
Creo haber visto algo que deberías revisar... Cuando termina el método Button1Click, la tabla fué recorrida desde la primera a la última fila, quedando esta como la actual fila activa.
En la próxima llamada a Button1Click el ciclo while no se ejecutará ya que la condición de salida está satisfecha en la comprobación,
Código Delphi [-]
 while not query.Eof do

Para reproducir nuevamente el comportamiento del método Button1Click, tenes que fijar el primer registro de la tabla como la fila activa antes de entrar al ciclo while:
Código Delphi [-]
...
  PLANILHA.cells[1,13]:='ImportePrestamo';
  PLANILHA.cells[1,14]:='FechaContrato';
  PLANILHA.cells[1,15]:='Fechavencimiento';

  query.DisableControls;
  query.First;  // <== Aquí 
  try
    while not query.Eof do
  ...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita