MANIPULACAO BANCO DE DADOS

USUARIO.EXCLUIDOS 22/04/2004 02:54:38
#21832
Ola
Preciso que o sistema altere todos os registros da tabela tbpre , alterando para "0,00" o valor do campo desconto. Porém o ultimo registro fica com o valor antigo não sendo alterado... Porque isso ta ocorrendo????
A rotina esta mostrada abaixo

totrec = tbpre.RecordCount
counter = 0
MsgBox totrec
MsgBox counter

If tbpre.BOF = False Then
tbpre.MoveFirst
End If

Do While counter totrec
MsgBox tbpre("desconto")
tbpre.Edit
tbpre("desconto") = "0,00"
tbpre.Update
counter = counter + 1
tbpre.MoveNext
Loop

Ps: Não sei se tem algo a ver , mas essa tabela esta sendo exibida em um dbgrid.
RXGOMES 22/04/2004 08:15:01
#21844 Resposta escolhida
tente colocar
do while counter = torec
Tópico encerrado , respostas não são mais permitidas
Voltar