SOMA DE COLUNA LISTVIEW

Formulários

Post Recente por NERI S 7 anos atrás

2 Posts

2 Usuários

0 Reactions

1,198 Visualizações

RSS

fabio.cmaa

(@fabio-cmaa)

Posts: 0

Estimable Member

Topic starter

Boa tarde galerinha,

estou com dificuldade em somar a coluna de preço do listview só tô conseguindo contar quantas células tem,

e tambem tem uma coisas pra corrigir que estou com dificuldade que seria os itens abaixo:

obs.: item a ser corrigido

TXT_PREÇO: nesse campo mesmo eu digitando não é pra desaparecer o simbolo de moeda, é pra continuar, e caso eu digite um valor acima de 1000, auto formatar para R$ 1.000,00, EX: eu digito 1500, aparecer RS: 1.500,00

código: buscar o ultimo valor cadastrado + 1, ex: o ultimo cadastrado é o 12, aparecer no campo já o numero 13

SOMAR: aparecer no Soma_Produto, toda a soma da coluna do listview, caso eu fizer uma pesquisa, continuar somando o que tem na coluna,

PREÇO: aparecer na coluna do listview na coluna preço, o formato MOEDA:

txt_busca1: funciona apenas para o busca1, queria buscar por duas condição, pelo tamanho, e pelo sexo:

agradeceria se alguém me ajudasse.

Fabio c.

Postado : 22/08/2017 8:54 am

NERI S

(@neri-s)

Posts: 0

Estimable Member

Boa tarde Fábio

Eu faço assim:
Criei um textbox chamado txttotalservico

e soma assim: ele soma a 10ª coluna, como podes ver.....

Sub Totalservico()
Dim i As Long
Dim valor As Double
For i = 1 To Me.ListView1.ListItems.Count
valor = valor + CDbl(Me.ListView1.ListItems(i).ListSubItems(9))
Next i
txttotalservico.Text = valor
txttotalservico.Value = Format(txttotalservico, "#,##0.00")
End Sub

__________________________________________________________________________________________
Sobre a formatação:
insira um evento chamado EXIT

Private Sub TXT_PREÇO_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT_PREÇO.Text = valor
TXT_PREÇO.Value = Format(TXT_PREÇO, "R$ #,##0.00")
End Sub

Faz estas duas partes e depois responde para ver o que falta;....

Postado : 29/08/2017 2:22 pm