-
I'am populating a Listbox and Datalist with prices from an Access database.
My problem is that I cannot get the prices to display in the currency format.
I have set the DataFormat Property to Currency but this has no affect.
I have populated the Listbox using a data control and with code just to check to see one way would work better than the other, but I can't display the currency correctly no matter which way I try.
Here is the code I used.
Do While Not Records.EOF
Price.AddItem Records("Price")
Price.ItemData(In_Stock.NewIndex) = Records("Stock_Code")
Records.MoveNext
Loop
Can any one help!!!
-
You can try a couple of things:
Price.AddItem CCur(Records("Price") ) or
dim curPrice as Currency
curPrice = Format(Records("Price"), "###,###.##")
Price.AddItem curPrice
-
I have tried both your suggestions without any success.
The second option rounded down the values for example
Correct amount 1.55
Amount Displayed 1.5
Also the currency sign was not included
£1.55
I feel as though the things I have tried and your suggestions should work, but I might be missing something else.
Any Further Suggestions
Thanks
