Início
![[Resolvido]Casas decimais em soma de caixa de listagem Empty](https://2img.net/i/empty.gif)
gilberlanio 1/12/2014, 20:43Tenho um campo chamado txtTotalGeral que recebe uma soma de uma coluna de uma caixa de listagem, não estou conseguindo que esse campo some com casas decimais.
Estou usando esse código no evento ao abrir do formulário para fazer a soma:
Private Sub Form_Open(Cancel As Integer)
' Soma valores
Dim I, Soma As Double
Soma = 0
For I = 0 To Lista.ListCount - 1
If Val(Lista.Column(1, I)) > 0 Then Soma = Soma + Val(Lista.Column(1, I))
Next
txtTotalGeral = Soma
End Sub
Segue o arquivo em anexo:
Estou usando esse código no evento ao abrir do formulário para fazer a soma:
Private Sub Form_Open(Cancel As Integer)
' Soma valores
Dim I, Soma As Double
Soma = 0
For I = 0 To Lista.ListCount - 1
If Val(Lista.Column(1, I)) > 0 Then Soma = Soma + Val(Lista.Column(1, I))
Next
txtTotalGeral = Soma
End Sub
Segue o arquivo em anexo:
