List box formating

Printable View

Sep 10th, 2001, 01:34 PM
BidForYourBiz

List box formating

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.
Sep 10th, 2001, 01:40 PM
Hack

Widen the list box.
Sep 10th, 2001, 03:37 PM
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?
Sep 10th, 2001, 04:47 PM
BidForYourBiz

Any new ideas?
Sep 10th, 2001, 04:54 PM
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...
Sep 10th, 2001, 08:02 PM
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
VB Code:
```
'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
```