Goto dentro do While

Delphi

29/04/2004

Galera eu tenho este codigo e não estou conseguindo fazer com q o comando while verifique todos os registro na tabela ele esta verificando somente o primeiro;

[b:975d85172c]Abaixo o codigo fonte[/b:975d85172c]

 while not DmBanco.TBConfirmacao.Eof do
  begin
   If ((ColunaAnoAnterior.AsString=ColunaConfirmacao.asstring) and ((modalidade.AsString=´OK´) or (modalidade.AsString=´Ok´))) then
    Begin
       CabecaA.Caption:=ColunaAnoAnterior.AsString;
       DmBanco.TbAnoAnterior.Next;
       grupob;
    end;
    DmBanco.TBConfirmacao.Next;
   End;

Aguardo um ajuda. Desde de ja agradeço
Abraço
Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Motta

Motta

29/04/2004

DmBanco.TBConfirmacao.First; // <<==

while not DmBanco.TBConfirmacao.Eof do 
  begin 
   If ((ColunaAnoAnterior.AsString=ColunaConfirmacao.asstring) and ((modalidade.AsString=´OK´) or (modalidade.AsString=´Ok´))) then 
    Begin 
       CabecaA.Caption:=ColunaAnoAnterior.AsString; 
       DmBanco.TbAnoAnterior.Next; 
       grupob; 
    end // <<==
    else // <<--
      DmBanco.TBConfirmacao.Next; 
   End;



GOSTEI 0
POSTAR