List box formating

[BidForYourBiz]

Hi everybody. I am having problems with this code. It is truncating what ever is intered into this list box and cutting off all the 0's. Any ideas on how to fix this?

'Loading rates
Set m_oRecord = m_oConnect.GetRate

'As long as we have something...
cbStartRate.Text = Format(cbStartRate.Text, "0.000")
While Not m_oRecord.EOF
cbStartRate.AddItem m_oRecord.Fields(0).Value
m_oRecord.MoveNext
Wend

Thanks a bunch.

[Hack]

Widen the list box.

[BidForYourBiz]

The width of the list box doesn't seem to matter. It still truncates the number and cuts off the rest of the 0's. Any other ideas?

[BidForYourBiz]

Any new ideas?

[schuurke28]

just a wild guess...


While Not m_oRecord.EOF
cbStartRate.AddItem m_oRecord.Fields(0).Value
cbStartRate.Text = Format(cbStartRate.Text, "0.000")
m_oRecord.MoveNext
Wend

Not sure of this one but give it a try...

[beachbum]

Hi
1) You are formatting the value and then adding the unformatted value to your listbox or combobox
2) You dont need to set the text property while looping
3) Use Format$ instead of Format - quicker
4) While.. Wend is not used nowadays but that wont cos a prob
Regards
Stuart

'Your code....
'As long as we have something... 
cbStartRate.Text = Format(cbStartRate.Text, "0.000") 
While Not m_oRecord.EOF 
cbStartRate.AddItem [b]Format$([/b]m_oRecord.Fields(0).Value[b], "0.000")[/b]
m_oRecord.MoveNext 
Wend