Como faço este laço........
while not qry_entradadetalhe.Eof do
begin
if qry_entradadetalhe.FieldByName(´edetalhe_funcao´).AsString= ´L´ then
CONT_ITEM:=CONT_ITEM+1;
qry_entradadetalhe.Next;
end;
Como faço para quando o resultado obtido for igual a (L) pare de realizar o loop?
begin
if qry_entradadetalhe.FieldByName(´edetalhe_funcao´).AsString= ´L´ then
CONT_ITEM:=CONT_ITEM+1;
qry_entradadetalhe.Next;
end;
Como faço para quando o resultado obtido for igual a (L) pare de realizar o loop?
Fábio Galvão
Curtidas 0
Respostas
Marco Salles
28/08/2005
Como faço para quando o resultado obtido for igual a (L) pare de realizar o loop?
[b:6eca2e28a2]Use break;[/b:6eca2e28a2]
while not qry_entradadetalhe.Eof do
begin
if qry_entradadetalhe.FieldByName(´edetalhe_funcao´).AsString= ´L´ then
begin
CONT_ITEM:=CONT_ITEM+1;
break ;
end;
qry_entradadetalhe.Next;
end;
GOSTEI 0