Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combo Box and Incremental Search
Message
From
08/10/2004 15:55:23
 
 
To
08/10/2004 15:47:55
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00950015
Message ID:
00950045
Views:
15
>Yes. I have tried everything I know, but it still has a problem.
>
>I have the Combo Box set to Alias
>The RowSource is set to a table with 12 records it it with two fields.
>
>I expand the Combo box and type in a letter. The combo box will go to the first record properly.
>
>If I try to type in multiple letters the combo box will just set there.

All I can say is it works for me. Do you have some other code that could affect it? Try this:
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


	**************************************************
*-- Form:         form1 (c:\vfp9stuff\incsearch.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   10/08/04 12:55:03 PM
*
DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT combo1 AS combobox WITH ;
		RowSourceType = 2, ;
		RowSource = "incsearch", ;
		Height = 37, ;
		IncrementalSearch = .T., ;
		Left = 108, ;
		Top = 60, ;
		Width = 181, ;
		Name = "Combo1"


	PROCEDURE Load
		CREATE CURSOR incsearch (f1 c(10))
		INSERT INTO incsearch VALUES ("one")
		INSERT INTO incsearch VALUES ("two")
		INSERT INTO incsearch VALUES ("three")
		INSERT INTO incsearch VALUES ("four")
		INSERT INTO incsearch VALUES ("five")
		INSERT INTO incsearch VALUES ("six")
		INSERT INTO incsearch VALUES ("seven")
		INSERT INTO incsearch VALUES ("eight")
		INSERT INTO incsearch VALUES ("nine")
		INSERT INTO incsearch VALUES ("ten")
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************
I tried this with both VFP6 and VFP9 beta, and I didn't even have to mess with either of the system variables to make it work.
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Reply
Map
View

Click here to load this message in the networking platform