>>We thought it was our class, but then we threw a default Foxpro ComboBox on a form and set the RowSourceType to Fields, the RowSource to a cursor (tried a table also) and then started playing around with selecting different values. It is 2 column and we can consistently make it break. By choosing a row near the top of the list, then choosing one around number 250 in the list, it will not change the value. If we choose something near the bottom, it will. If we have one chosen at the bottom, then choose one near the top, it will not change the value. We are very tired of testing this, but it does seem to happen more when the display drops "Up" (near the bottom of the screen) then the normal "Down" direction. It seems to only happen when the cursor or table has (somewhere around) 250 records or more. Anyone seen this type of behavior?
>
>
>Combobox control - A selection does not work correctly when a row source exceeds approximately 512 items.
>
>in
>
>http://support.microsoft.com/?scid=kb%3Ben-us%3B824071&x=15&y=12

Hi Fabio but this is for "List of bugs that are fixed in Microsoft Visual FoxPro 8.0 Service Pack 1".
Jay is with VFP9 SP2
I don't see problem with

PUBLIC oform1

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


*************************************************
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   02/25/09 09:00:00 PM
*
DEFINE CLASS form1 AS form


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


	ADD OBJECT combo1 AS combobox WITH ;
		Height = 30, ;
		Left = 41, ;
		Style = 2, ;
		Top = 33, ;
		Width = 306, ;
		Name = "Combo1"


	ADD OBJECT label1 AS label WITH ;
		Caption = "", ;
		Height = 28, ;
		Left = 34, ;
		Top = 93, ;
		Width = 322, ;
		Name = "Label1"


	PROCEDURE Init
		ThisForm.combo1.RowSourceType = 6
		Thisform.combo1.ColumnCount = 2
		thisform.combo1.RowSource = [crsTest.cField,ID]
		Thisform.combo1.BoundTo = .t.
		Thisform.combo1.BoundColumn = 2
		ThisForm.combo1.Value = 129
	ENDPROC


	PROCEDURE Load
		CREATE CURSOR crsTest (Id Int AUTOINC, cField Char(20))
		FOR ijk = 1 TO 600
		    INSERT INTO crsTest (cField) VALUES ([Id Value ]+TRANSFORM(ijk))
		NEXT
		GO TOP
	ENDPROC


	PROCEDURE combo1.InteractiveChange
		ThisForm.Label1.Caption = [Selected ID ] + TRANSFORM(ThisForm.Combo1.Value)
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************