SOMA DE COLUNA LISTVIEW

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

SOMA DE COLUNA LISTVIEW

Mensagempor fabio.cmaa » Ter Ago 22, 2017 11:54 am

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.
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
fabio.cmaa
Membro
Membro
 
Mensagens: 140
Registrado em: Qua Jul 20, 2016 7:34 am
Has thanked: 48 times
Have thanks: 7 times

{ SO_SELECT }

Re: SOMA DE COLUNA LISTVIEW

Mensagempor NERI S » Ter Ago 29, 2017 5:22 pm

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;....
NERI S
Membro
Membro
 
Mensagens: 105
Registrado em: Sex Jul 01, 2016 2:39 pm
Has thanked: 18 times
Have thanks: 5 times


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante

cron