>Is there any code in the combo's base class refresh()?

No just the code shown here.

>
>>I am (still) having a serious problem with a ComboBox.
>>
>>There is an interaction with my standard data input form I do not understand.
>>
>>When the comboBox below is put into my form it always is blank.
>>
>>

>>DEFINE CLASS cbovendors AS combobox
>>
>>	Tag = "this is the test cboVendor - based on base combobox - delete me"
>>	BoundColumn = 2
>>	ColumnCount = 1
>>	ControlSource = "vendors_id"
>>	Height = 24
>>	Style = 2
>>	Width = 159
>>	BoundTo = .T.
>>	Name = "cboVendors"
>>
>>	PROCEDURE Init
>>		select vn_name,vendors_id from vendors into array aVendors order by 1
>>		nNoRows = alen(aVendors,1)
>>		for nRow = 1 to nNoRows
>>			= this.AddListItem(aVendors[nRow,1],nRow,1)
>>			= this.AddListItem(aVendors[nRow,2],nRow,2)
>>		endfor
>>		= dodefault()
>>	ENDPROC
>>
>>ENDDEFINE
>>

>>
>>When I create a form using the Form Wizard and insert the control it works as it should.
>>
>>When I insert breaks (set step on) into my standard data input form methods it also works as it should!!! Only by removing the breaks and logging to a text file could I see what was happening it real time.
>>
>>When you step through the table cboVendors.Value shows the correct value - equip.vendors_id. cboVendors.DisplayValue is blank. cboVendors.ListIndex is 0.
>>
>>To make the control work as it should in my form I added the following to the class definition :
>>
>>

>>	PROCEDURE Refresh
>>	= dodefault()
>>	if empty(.DisplayValue) and not empty(.Value)
>>		for nRow = 1 to .ListCount
>>			if .Value = .List[nRow,2]
>>				.ListIndex = nRow
>>				exit
>>			endif
>>		endfor
>>	endif
>>

>>
>>With this addition it works. But of course the control should do this work internally. And it does when it is not included in my standard form.
>>
>>Can anyone suggust a reason for this? It is as if control freezes and does not Refresh.