FORMATAR COLUNA LISTVIEW VB6 EM CURRENCY

OMAR2011 16/03/2014 16:06:36
#436124 Resposta escolhida

Deste jeito.
Item.SubItems(2) = [Ô][Ô] & Format(rsPed!Valor, [Ô]Currency[Ô])
Qualquer dúvida.......!

MAGICMEN 16/03/2014 17:20:18
#436127

onde coloco

para formatar tenho assim

With ListView1
.ColumnHeaders.Clear
.ColumnHeaders.Add , , [Ô]Nº Apartado[Ô], .Width * 0.18
.ColumnHeaders.Add , , [Ô]Número do Registo[Ô], .Width * 0.34, lvwColumnCenter
.ColumnHeaders.Add , , [Ô]Address[Ô], .Width * 0#
.ColumnHeaders.Add , , [Ô]Data[Ô], .Width * 0.22, lvwColumnCenter
.ColumnHeaders.Add , , [Ô]A Cobrar[Ô], .Width * 0.22, lvwColumnCenter
.ColumnHeaders.Add , , [Ô]Zip[Ô], .Width * 0#
.ColumnHeaders.Add , , [Ô]Phone #[Ô], .Width * 0#
.ColumnHeaders.Add , , [Ô]ID[Ô], 0



End With

OMAR2011 16/03/2014 18:02:27
#436132

Banco.Open [Ô]Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Bras2014;Data Source=OMAR[Ô]

Set rsPed.ActiveConnection = Banco

rsPed.Open [Ô]SELECT ROW_NUMBER() Over (Order by Nome) as Sequencia,Data,Valor From Cliente[Ô]
Dim Item As ListItem
Do Until (rsPed.EOF)
Set Item = LstProdutos.ListItems.Add(, , rsPed!Sequencia)
Item.SubItems(1) = [Ô][Ô] & rsPed!data
Item.SubItems(2) = [Ô][Ô] & Format(rsPed!Valor, [Ô]Currency[Ô])
rsPed.MoveNext
Teste feito com Sqlserver.
LstProdutos é o Listview.
Loop