Tomás Vásquez Fórum

Enviado: **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?

Enviado: **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

Enviado: **Qui Dez 05, 2019 5:40 pm**

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

Tomás Vásquez Fórum

ListView com casas decimais

ListView com casas decimais

Re: ListView com casas decimais

[Resolvido] ListView com casas decimais