Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Listbox numeric values and speedsearch
Message
 
 
To
02/12/2004 11:24:58
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00966403
Message ID:
00966433
Views:
7
>Yes it works as far as displaying in the right order, but the speedsearch does not work correctly still. I still get the same results. If the order is set to formname in the temporary table created, the list diplays in the correct order but the search works incorrectly. If I have:
>
>1
>25
>35
>125
>
>and I am on 1 in the list and I type 125 I go to 25.

The following works for me:
LOCAL o
o = CREATEOBJECT('_form')
o.Show(1)
o = null
RETURN

DEFINE CLASS _form AS form

	Height = 250
	Width = 240
	DataSession = 2

	ADD OBJECT list1 AS listbox WITH ;
		ColumnCount = 2, ;
		ColumnWidths = "75,200", ;
		RowSourceType = 2, ;
		RowSource = "", ;
		Height = 200, ;
		Left = 10, ;
		Top = 10, ;
		Width = 220, ;
		Name = "List1"

	PROCEDURE INIT
		CREATE CURSOR crsForms (FormName C(10), Descript C(10))
		INSERT INTO crsForms VALUES ('1', 'Form 1')
		INSERT INTO crsForms VALUES ('2', 'Form 2')
		INSERT INTO crsForms VALUES ('21', 'Form 21')
		INSERT INTO crsForms VALUES ('5', 'Form 5')
		INSERT INTO crsForms VALUES ('12', 'Form 12')
		INSERT INTO crsForms VALUES ('125', 'Form 125')
		INSERT INTO crsForms VALUES ('25', 'Form 25')
		INSERT INTO crsForms VALUES ('121', 'Form 121')
		INSERT INTO crsForms VALUES ('50', 'Form 50')
		INSERT INTO crsForms VALUES ('11', 'Form 11')
		INDEX ON VAL(FormName) TAG FormName
		SET ORDER TO FormName
		THIS.List1.RowSource = "crsForms"
	ENDPROC
	PROCEDURE Activate
		THIS.List1.SetFocus()
	ENDPROC
ENDDEFINE
Mark McCasland
Midlothian, TX USA
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform