To All :

I am trying to add a drop down list to a form with two columns.

Data field is bound to the second column.

The control is blank even when the vendors_id field is non-zero and pointing to a valid Vendor. The only way to make it display the vendors name as the user steps thru the table is to leave the cursor in the control. Otherwise it is blank.

This something I have done a hundred times and I cannot get this one to work. I look at those that are working and see no difference.

DEFINE CLASS vendors AS xcbochg
	BoundColumn = 2
	ColumnCount = 2
	ColumnWidths = "120,80"
	ControlSource = "vendors_id"
	ColumnLines = .F.
	Width = 133
	Name = "vendors"

	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
	ENDPROC
ENDDEFINE

DEFINE CLASS xcbochg AS combobox
	FontName = "Verdana"
	Height = 24
	Style = 2
	Width = 100
	Name = "xcbochg"

	PROCEDURE Valid
		= thisform.IsChanged[]
	ENDPROC
	PROCEDURE RightClick
		do RtClick.mpr
	ENDPROC
ENDDEFINE
<\pre>

Please come to my aid before sanity slips away completely.

Best Regards
Don Simpson