Ver Mensaje Individual
  #2  
Antiguo 24-10-2007
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Reputación: 21
gluglu Va por buen camino
Después de seguir comiéndome el coco creo haber encontrado una solución satisfactoria :

Código Delphi [-]
Aux_Si_No := 0;
IBDataSet.First;
while not IBDataSet.Eof do begin

  if (not IBDataSet.FieldByName('BOARDTYPE').IsNull) or
     (IBDataSet.FieldByName('PAXTYPE').AsInteger = 1) then
    Inc(Aux_Si_No);

  if Aux_Si_No > 1 then begin
    // La respuesta es NO
    Exit;
  end;

  IBDataSet.Next;

end;
 
if Aux_Si_No <= 1 then ... // La respuesta es SI
__________________
Piensa siempre en positivo !
Responder Con Cita