DUVIDA FOR NEXT

USUARIO.EXCLUIDOS 16/07/2004 11:26:20
#33792
Fala peçoar ...........

Estou com um erro ou bobeira no For Next
Veja :

Private Sub CalcularTotalPecas()
On Error GoTo Trata_Erro
Dim curTotalValorPecas As Currency
Dim curTotalValorTT As Currency
Dim i As Single
curTotalValorPecas = 0
i = 0
For i = 0 To ListDados.ListCount
curTotalValorPecas = curTotalValorPecas + strListagem(i, 8)
i = i + 1
Next
TxtTotalValPecas = curTotalValorPecas
Exit Sub
Trata_Erro:
MsgBox Err.Number & " -> " & Err.Description, vbExclamation, " Alerta - CalcularTotalPecas "
End Sub

No caso a lista tem 2 itens, bem qdo passa a primeira vez , pega o primeiro valor da lista (index 0), mas qdo vai passar a segunda vez o valor de i vai para 2 e não 1 como é nescessário !

Não sei aonde estou fazendo bobeira !!!! [S50]

Grato
USUARIO.EXCLUIDOS 16/07/2004 11:40:27
#33795 Resposta escolhida
Não manipule as varivel do For dentro do for
tente assim

Private Sub CalcularTotalPecas()
On Error GoTo Trata_Erro
Dim curTotalValorPecas As Currency
Dim curTotalValorTT As Currency
Dim i As Single
curTotalValorPecas = 0
i = 0
For i = 0 To ListDados.ListCount
curTotalValorPecas = curTotalValorPecas + strListagem(i, 8)
Next
TxtTotalValPecas = curTotalValorPecas
Exit Sub
Trata_Erro:
MsgBox Err.Number & " -> " & Err.Description, vbExclamation, " Alerta - CalcularTotalPecas "
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar