Ver Mensaje Individual
  #24  
Antiguo 22-01-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
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
__________________
Siempre Novato
Responder Con Cita