ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

ListView com casas decimais

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

RobertoCM
Colaborador
Colaborador
Mensagens: 34
Registrado em: Sáb Set 28, 2019 9:57 am

ListView com casas decimais

Mensagem por RobertoCM » Qui Dez 05, 2019 1:09 pm

Boa tarde tenho uma listview adaptado a minha necessidade que recebe dados do access preciso que seja formatado os campos valor unitário e valor total com duas casas decimais já percorri toda a internet adaptei alguns códigos mas não funcionou alguém por favor poderia me ajudar nisso?
Anexos
ListView 2 casas decimais.rar
(61.56 KiB) Baixado 72 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1408
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: ListView com casas decimais

Mensagem por Reinaldo » Qui Dez 05, 2019 1:56 pm

"...com duas casas decimais já percorri toda a internet adaptei alguns códigos mas não funcionou..."

Experimente:

Código: Selecionar todos

Private Sub txtPesquisa_Change()
Dim cx As New ClasseConexao
Dim banco As ADODB.Recordset
Dim sql As String
Dim i As Integer

ProcurarPor = Me.cboPesquisarPor.Text
OrdenarPor = Me.cboOrdenarPor.Text

With Me.lstv
    .ListItems.Clear
    
    sql = "SELECT num_venda, Data, tipo_venda, forma_pag, nome_cli, cod_prod, grupos, nome_prod, quant, val_unit, val_total FROM Vendas "
    
    If Me.chkPesquisa.Value = True Then
        sql = sql & " WHERE " & ProcurarPor & " LIKE '%" & Me.txtPesquisa.Value & "%' ORDER BY " & OrdenarPor & " " & Ordem
    ElseIf Me.chkPesquisa.Value = False Then
        sql = sql & " WHERE " & ProcurarPor & " LIKE '" & Me.txtPesquisa.Value & "%' ORDER BY " & OrdenarPor & " " & Ordem
    End If
    
    Set banco = New ADODB.Recordset
    cx.Conectar
    
    banco.Open sql, cx.Conn, adOpenKeyset, adLockOptimistic

    For i = 0 To banco.RecordCount - 1
        If Not IsNull(banco(0)) Then
            .ListItems.Add 1, , banco(0)
            .ListItems(1).ListSubItems.Add 1, , banco(1)
            .ListItems(1).ListSubItems.Add 2, , banco(2)
            .ListItems(1).ListSubItems.Add 3, , banco(3)
            .ListItems(1).ListSubItems.Add 4, , banco(4)
            .ListItems(1).ListSubItems.Add 5, , banco(5)
            .ListItems(1).ListSubItems.Add 6, , banco(6)
            .ListItems(1).ListSubItems.Add 7, , banco(7)
            .ListItems(1).ListSubItems.Add 8, , banco(8)
            .ListItems(1).ListSubItems.Add 9, , Format(banco(9), "#,###.00")
            .ListItems(1).ListSubItems.Add 10, , Format(banco(10), "#,###.00")
        End If
        banco.MoveNext
    Next i
Set banco = Nothing
cx.Desconectar
End With
    Me.StatusBar1.Panels(1).Text = "Total de Itens Localizados: " & Me.lstv.ListItems.Count
End Sub


Reinaldo
:oops: :D :mrgreen: :geek:

RobertoCM
Colaborador
Colaborador
Mensagens: 34
Registrado em: Sáb Set 28, 2019 9:57 am

[Resolvido] ListView com casas decimais

Mensagem por RobertoCM » Qui Dez 05, 2019 5:40 pm

Perfeito deu certo funcionou perfeitamente muito obrigado sua pela atenção.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder