Busqueda en Tabla Filtrada
 

Buenas Tardes ..

La cuestion es que tengo un problema al realizar una busqueda en una tabla lo que hago es tomar un valor de una consulta y luego buscarlo dentro de una tabla previamente filtrada, no se si sea por que esta filtrada la tabla pero al momento de correr el codigo siempre queda al final de la tabla y no recorre los registros :confused:

lo se por que en .EOF siempre me marca True..
ya intente locate y lookup tambien y nada...

uso delphi 6 y la base de datos en access, de antemano muchas gracias !

Estas seguro que antes del recorrido al DataSet le haces un .First?

si ya trate con .first y con .findfirst :confused:

alguna otra sugerencia ??? :)

que tal si colocas el codigo??

Buen Punto jaja
ahorita lo subo por que no estoy en mi pc ;)

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 :confused:

//Jhonny: Lo edite para colocar etiquetas DELPHI

¿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

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

Saludos

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