F�rum Goto dentro do While #228793

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

Curtir t�pico

+ 0

Responder

Posts

29/04/2004

Motta

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;

Responder

Gostei + 0