problema ao fazer um While

Question

Ol�, estou com um probleminha q � o seguinte, tenho um bot�o no meu pedido q qdo clicado, ele coloca todos os itens q est�o em um DBGrid do pedido com um S �sim�, q quer dizer q est�o pagos, qdo � mai...

Poeta Noturno · Answer

Bom, eu realmente naum entendi muito bem o que vc queria, se puder ser mais clara...Ou se preferir, me mande um e-mail, ok?Um abra�oPoeta Noturno...

Anonymous · Answer

Pelo que vi seu c�digo est� correto, tente usar este c�digo, � a mesma coisa, mas as vezes o delphi nos impressiona...

with TbItens do
begin
First;
While Not eof do
begin
if FieldByName(�Pago�).Value = �N� then
begin
Edit;
FieldByName(�Pago�).Value:=�S�;
If FieldByName(�Inicio�).Value = True then
TbItensDataHoraFim.Value:=WHora;

TbItens.Post;
end;
Next;
end;
end;

se tentar e der certo ou n�o me mande um e-mail vamos ver o que pode ser ok??? xixico@pop.com.br

Anonymous · Answer

TbItens.First;
while not TbItens.EOF do
begin
if TbItensPago.Value = �N� then
begin
TbItens.Edit;
if TbItensInicio.Value = True then
TbItensDataHoraFim.Value := WHora;
TbItens.Post;
TbItensPago.Edit;
TbItensPago.Value := �S�;
TbItensPago.Post;
end;
TbItens.Next;
end;

Magoo · Answer

TbItens.First;
While Not TbItens.eof do
begin
if TbItensPago.Value = �N� then
begin
TbItens.Edit;
TbItensPago.Value:=�S�;
If TbItensInicio.Value = True then
TbItensDataHoraFim.Value:=WHora;
TbItens.Post;
end;//if TbItensPago . . .
end;//while not TbItens.eof . . .
[b:489d6e848a]TbItens.Next;[/b:489d6e848a]
end;

O problema do c�digo � que voc� est� usando o m�todo [b:489d6e848a]Next[/b:489d6e848a] fora do la�o While . . . por isso s� d� certo quando vc tem apenas um registro no seu DbGrid . . .