Fórum Ajuda com o While.... #228690

while not tblconta.eof do 
Begin 
 if tblcontaSituacao.value = ´Sim´ then 
 Begin 
  /// Aqui eu gostaria de fazer com o que desse volta //// 
  /// e passe a testar o outro registro /// 
  /// ou seja qual o comando eu dou antes do Next e ele var 
  /// testar ( um loop no velho clipper ) 
  continue;
 end;
 soma := soma + tblcontaValor.value; 
 tblconta.next; 
end;

while not tblconta.eof do 
begin 
  if tblcontaSituacao.value <> ´Sim´ then 
     soma := soma + tblcontaValor.value; 
  tblconta.next; 
end;

while not tblconta.eof do 
Begin 
 if tblcontaSituacao.value = ´Sim´ then 
 Begin 
  /// Aqui eu gostaria de fazer com o que desse volta //// 
  /// e passe a testar o outro registro /// 
  /// ou seja qual o comando eu dou antes do Next e ele var 
  /// testar ( um loop no velho clipper ) 
  continue;
 end;
 soma := soma + tblcontaValor.value; 
 tblconta.next; 
end;

while not tblconta.eof do 
Begin 
if tblcontaSituacao.value = ´Sim´ then 
Begin 
  /// Aqui eu gostaria de fazer com o que desse volta //// 
  /// e passe a testar o outro registro /// 
  /// ou seja qual o comando eu dou antes do Next e ele var 
  /// testar ( um loop no velho clipper ) 
  tblconta.next;
  continue;  // continue com a próxima iteração
end; 
soma := soma + tblcontaValor.value; 
tblconta.next; 
end;