Ver Mensaje Individual
  #4  
Antiguo 22-07-2008
alquimista alquimista is offline
Miembro
 
Registrado: ene 2008
Posts: 203
Reputación: 17
alquimista Va por buen camino
Ya está medio resuelto:

Por si sirve a alguien pongo el código:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var restr,cmpstr:string;
    valreal: double;
    salida:boolean;
begin

   restr:=Label.Caption;
   salida:=false;
   With DataModule10.ADOTable1 do
      try
      Open;
      First;
      While (not EOF) and (not salida) do
        Begin
           cmpstr:= FieldByName('Tabla1Col1').AsString;
           valreal:= FieldByName('Tabla2Col2').AsFloat;
          if cmpstr >=restr then
            begin
             salida:=true;
             with Datamodule10.ADOTabla2 do
                 begin
                  edit;
                  fieldbyname('Tabla2Col1').asstring:=restr;
                  fieldbyname('Tabla2Col2').asFloat:=valreal;
                 end;
            end;
          Next;
        End;
      Close;
    except
// excepción
      end;
    end;

end;

Esto vale porque los datos de tiempos de tabla 1 están ordenados de menor a mayor (cmpstr).

¿Existe alguna forma en el caso en que no estuvieran ordenados de mayor a menor de que al recorrer la tabla los ordene automáticamente?

¿Hay otra manera más rápida que la anterior?

A ver si hay alguien que me puede ayudar.
Gracias..
Responder Con Cita