Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Another combo bug?
Message
From
18/07/2003 07:05:54
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Another combo bug?
Miscellaneous
Thread ID:
00811434
Message ID:
00811434
Views:
39
Hello,

Most of our tables have integer column as primary key and often we use combobox to select a row. We also store selected row id in form's property to use it later. Nothing unusual...

And here is the bug:

- combobox is based on alias (RowSourceType=2)
- combobox is bound to numeric column (BoundTo=.T. and BoundColum=some_numeric_column)
- combobox' ControlSource is set to ThisForm.SomeProperty (this prop is also numeric)

there is no way to select an item and see the selection in textbox portion of a combo.

There is some workarounds, but it requires additional code and the bug/behaviour is annoying. Could anyone confirm it?

Here is short prog, so you can try it by yourselves if you wish...
* this is my table with curstomers
create cursor customers (name c(20), id i)
insert into customers values ('Company One',11)
insert into customers values ('Company Two',12)
insert into customers values ('Company Three',13)
insert into customers values ('Company Four',14)
insert into customers values ('Company Five',15)

* here is form
frm = createobject('form')

* here is form's prop to store selected customer id
* NOTE! this property is numeric (as id field is)
frm.addproperty('companyid',0)

* let's prepare combo box
frm.addobject('cbo','combobox')
with frm.cbo
	.top = 100
	.left = 100
	.rowsourcetype = 2	&& alias
	.rowsource = 'customers'
	.boundcolumn = 2
	.boundto = .t.	&& to store customer id not listindex
	.controlsource = 'ThisForm.companyid'	&& to store selected customer id in forms' property
	.visible = .t.
endwith

messagebox('try to select a customer from a combo!')

frm.show(1)

use in customers
Best,

Janusz Czudek
WORD Software
http://www.wordsoft.com.pl
Next
Reply
Map
View

Click here to load this message in the networking platform