Comparação de tabelas

[natiii 0]

Olá amigos...

 

estou precisando comparar duas tabelas: DadosBB e Negociacao, comparando os campos: CDC e Entrada, se os valoes forem iguais deve ser colocado no campo STATUS de Negociacao = 'SIM', se forem diferentes, pode ficar em branco mesmo...

 

Fiz um código, mas que dá errado em alguns valores...

Por favor, se alguém puder ajudar fico muito grata.

 

procedure TFormArquivoTxt.BitBtnComparaTabelasClick(Sender: TObject);
begin

AdoTableDadosBB.First;
 while (not AdoTableDadosBB.Eof) do
 begin
   AdoTableNegociacao.First;
   while (not AdoTableNegociacao.Eof) do
   begin

	 if ((AdoTableNegociacao.FieldByName('CDC').Value = AdoTableDadosBB.fieldByName('CDC').Value) and
	(AdoTableNegociacao.FieldByName('Entrada').Value = AdoTableDadosBB.fieldByName('Entrada').Value))   then
	 begin
	   AdoTableNegociacao.Edit;
	   AdoTableNegociacao.FieldByName('STATUS').Value := 'SIM';
	   AdoTableNegociacao.Post;
	  end;
	  AdoTableNegociacao.Next;
   end; // fim do 2o while
	  AdoTableDadosBB.Next;

 end; // fim do 1o while

 ShowMessage('Tabela Comparada.');
end;

[marcio.theis 3]

Ok, mas qual o problema que esta acontecendo ?