Vídeo recomendado
https://youtu.be/diWPPPhW-9E

ListView com casas decimais

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

Moderador: joseA

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

ListView com casas decimais

Mensagem por RobertoCM »

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 273 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: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: ListView com casas decimais

Mensagem por Reinaldo »

"...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


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

[Resolvido] ListView com casas decimais

Mensagem por RobertoCM »

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