Busqueda en Tabla Filtrada

[don malo]

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

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 !

[jhonny]

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

[don malo]

si ya trate con .first y con .findfirst

[don malo]

alguna otra sugerencia ???

[[eduarcol]]

Empezado por don malo

alguna otra sugerencia ???

que tal si colocas el codigo??

[don malo]

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

[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,