Filtrar Tabla con datos de otra Tabla

[[Caral]]

Hola
Pregunto:
Lo que necesitas es VER los registros de la tabla 2 y de la tabla 3 para saber si hay repetidos VISUALMENTE o que muestre solo los repetidos?.
No entiendo para que recorrer la tabla.
Saludos

[Lenny]

Empezado por Caral

Hola
Pregunto:
Lo que necesitas es VER los registros de la tabla 2 y de la tabla 3 para saber si hay repetidos VISUALMENTE o que muestre solo los repetidos?.
No entiendo para que recorrer la tabla.
Saludos

Necesito que la TABLA3 muester solo los repetidos, los que tenga la TABLA2...
esop...

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