>>I ran your code and I don't undestand what you are trying to show me. With the checkbox value .T., nothing changes, with it .F., then it just works and changes the value in the first column. What are you trying to show?
>>
>With .T. you select row 3 and combo show row 1 ...
>
>Then you cannot select a zip code and put it into the combo value ...

I changed your code again, and I see that when the checkbox is .T. I can duplicate the problem, when it is .F. it does not happen. Could you take a little more time and explain what you are trying to tell me? We are not using "this.value = this.value" though that seems to be what is needed for this to show the bug. Please give me more detail.

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show

DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 250
	Width = 453
	DoCreate = .T.
	Caption = "Form1"
	Name = "form1"


	ADD OBJECT combo1 AS combobox WITH ;
		BoundColumn = 2, ;
		ColumnCount = 2, ;
		RowSourceType = 5, ;
		Height = 24, ;
		Left = 96, ;
		Style = 2, ;
		Top = 60, ;
		Width = 156, ;
		BoundTo = .T., ;
		Name = "Combo1"


	ADD OBJECT text1 AS textbox WITH ;
		ControlSource = "thisform.Combo1.Value", ;
		Height = 23, ;
		InputMask = "99999999", ;
		Left = 264, ;
		Top = 60, ;
		Width = 156, ;
		Name = "Text1"


	ADD OBJECT check1 AS checkbox WITH ;
		Top = 24, ;
		Left = 96, ;
		Height = 17, ;
		Width = 138, ;
		AutoSize = .T., ;
		Alignment = 0, ;
		Caption = "Rewrite Combo Value", ;
		Value = .T., ;
		Name = "Check1"


	PROCEDURE combo1.Valid
		IF thisform.Check1.Value
			this.Value = this.Value
		ENDIF
		thisform.Text1.Refresh
	ENDPROC


	PROCEDURE combo1.Init
		ADDPROPERTY(this,"aItems[300,2]")
		FOR j=1 TO 100
			This.aItems[m.j,1]="Items"+STR(m.j)
			This.aItems[m.j,2]=1
		NEXT
		FOR j=101 TO 200
			This.aItems[m.j,1]="Items"+STR(m.j)
			This.aItems[m.j,2]=101
		NEXT
		FOR j=201 TO 300
			This.aItems[m.j,1]="Items"+STR(m.j)
			This.aItems[m.j,2]=201
		NEXT
		this.RowSource = "m.this.aItems"
		this.Value = 101
	ENDPROC

ENDDEFINE