Busqueda en Tabla Filtrada

[don malo]

Código Delphi [-]
procedure TForm3.Button9Click(Sender: TObject);
Var
   Req, Vel:Integer;
   Linea, Turno, Arnes, NewArnes:String;
begin
   DataModule1.Table1.First;
   Linea:=DataModule1.Query9LINEA.Value;
   Turno:=DataModule1.Query9TURNO.Value;
   Arnes:=DataModule1.Query9NPARNES.Value;
   Req:=DataModule1.Query9REQFAM.Value;
   Vel:=DataModule1.Query9VELOCIDAD.Value;
   While DataModule1.Table1.EOF Do
   Begin
      If DataModule1.Table1NPARNES.Value=Arnes Then
          NewArnes:=DataModule1.Table1NPARNES.Value
      Else
          DataModule1.Table1.Next;
   End;
End;

listo

//Jhonny: Lo edite para colocar etiquetas DELPHI

[jacanche]

¿te confundiste tecleando el código?, si no es asi, el while deberia quedar

Código Delphi [-]
While not DataModule1.Table1.EOF Do
   Begin
      If DataModule1.Table1NPARNES.Value=Arnes Then
          NewArnes:=DataModule1.Table1NPARNES.Value
      Else
          DataModule1.Table1.Next;
   End;

Como lo tienes, si tiene registros no se va a ejecutar el código en el ciclo while

[vtdeleon]

Ademas de que debe quitar el Else y dejar el next, sino se quedara "forever" en el ciclo!

Saludos

[jacanche]

tienes razon vtdeleon, lo que es no leer completo el codigo, vi un aparente error y no segui "compilando", jejejeje,