Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
ListView com casas decimais
Moderador: joseA
ListView com casas decimais
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 282 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: ListView com casas decimais
"...com duas casas decimais já percorri toda a internet adaptei alguns códigos mas não funcionou..."
Experimente:
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
[Resolvido] ListView com casas decimais
Perfeito deu certo funcionou perfeitamente muito obrigado sua pela atenção.