Filtrar Tabla con datos de otra Tabla

[[Caral]]

Hola
Para eso necesitamos filtrar la tabla 3, no la tabla 2.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
Filtro: String;
begin
ZTable3.Filtered := False;
while not ZTable3.Eof do  begin
Filtro := ' COD_INTERNO <> ' + ZTable2.FieldByName('COD_INTERNO').ASstring;
ZTable3.Filter := Filtro;
ZTable3.Filtered := True;
ZTable3.Next;
end
else
ZTable3.Filtered := False;
end;
end;

Aqui se indica que haga un recorrido de la tabla 3 y si el dato (COD_INTERNO) es diferente a la tabla 2 entonces sigue el recorrido.
Por supuesto la tabla 2 tiene que estar activa, abierta, para hacer la comparacion.
Pruebalo, a ver que pasa.
Saludos

[Lenny]

Se queda pegado, como si recorriera los registros una y otra vez sin hacer nada... y, pecando de ignorante... ¿A que te refiers con que la TABLA2 deve estar abierta, cativa??? algo como ZTABLE3.Open???

[[Caral]]

Hola
Si, ztable2.open y ztable3.open tambien, abiertas.

Prueba 2:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
Filtro: String;
begin
ZTable3.Filtered := False;
Filtro := ' COD_INTERNO <> ' + ZTable2.FieldByName('COD_INTERNO').ASstring;
ZTable3.Filter := Filtro;
ZTable3.Filtered := True;
end
else
ZTable3.Filtered := False;
end;
end;

Si no seria bueno por sql.
Saludos

[Lenny]

Pregunta, e usado los dos codigos anteriores, pero el "else" lanza error, lo e sacado... esta bien??? tiene alguna fucnion en especial???

[[Caral]]

Hola
Pues deberia de hacer la funcion de que si no ejecuta el filtro entonces no lo abre.
Verifica los punto y coma, tal vez por ahi esta el error.
Saludos

[Lenny]

Nada estimado... no hay caso... ya no se que mas hacer... busco y busco y no encuentro donde esta el error... Seguire buscando, ojala encuentre la solucion... muchisimas gracias por la ayuda!!!

PD: Si tiene mas sugerencias bienvenidas sean igual...

[Aleca]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Filtro: String;
begin
  ZTable2.First; //Se podria evitar
  if not ZTable2.Eof then //Tengo al menos un dato.
  begin
    Filtro := 'COD_INTERNO = ' + chr(39) + ZTable2.FieldByName('COD_INTERNO').ASstring + chr(39);
    ZTbable2.Next;
    while not ZTable2.Eof do
    begin
       Filtro := Filtro + ' or COD_INTERNO = ' + chr(39) + ZTable2.FieldByName('COD_INTERNO').ASstring + chr(39);
       ZTable2.Next
    end;
    ZTable1.filter := Filtro;
    ZTable1.Filtered := True;
  end;
end;

ahora debería andar.

[Lenny]

MIL GRACIAS ALECA!!! AHORA SI FUNCIONA!!!
Mil gracias ALECA, CHRIS y CARAL, llevo tratando de solcuionar esto 3 dias... estoy muy agradesido de su paciencia y conocimientos...