While I was waiting on your response to my post I have been trying to get the Array solution to work. But I am not getting any where. In a form I have the following

ThisForm.Text12.Value = ALLTRIM(pdmVar.userfirstname) + " " + ALLTRIM(pdmVar.userlastname)
ThisForm.Text13.Value = DATE()

SELECT getSODataQuery
GO Top

Replace getSODataQuery.projeng WITH ALLTRIM(pdmVar.userfirstname) + " " + ALLTRIM(pdmVar.userlastname)
Replace getSODataQuery.projengd WITH DATE()

ALINES(solArray, pdmConn.getdistributionlistconnection("ProgManagers"), 4, ",")

SELECT getSODataQuery
GO Top

If Type('ThisForm.stopordernotification1') != 'O' Then
		*ThisForm.AddObject('stopordernotification1','stopordernotification', 'Approval', pdmFunc.getprogrammanagementlist(), pdmVar.soIndex)
		ThisForm.AddObject('stopordernotification1','stopordernotification', 'Approval', solArray, pdmVar.soIndex)
	
	
	Else
		ThisForm.RemoveObject('stopordernotification1')
		*ThisForm.AddObject('stopordernotification1','stopordernotification', 'Approval', pdmFunc.getprogrammanagementlist(), pdmVar.soIndex)
		ThisForm.AddObject('stopordernotification1','stopordernotification', 'Approval', solArray, pdmVar.soIndex)
	
	EndIf

ThisForm.stopordernotification1.Visible = .T.
ThisForm.stopordernotification1.Left = ThisForm.Shape1.Left &&ThisForm.stopordernotificationLeft
ThisForm.stopordernotification1.Top = ThisForm.Shape1.Top &&ThisForm.stopordernotificationTop && + ThisForm.Viewingprintingclass1.Height + 3


=sofunc.updateSOdata("Approve1", pdmVar.soIndex)

My form object where the combobox is I have this in the init method

LPARAMETERS p1, p2, p3

ThisForm.stopordernotification1.whatsotype = p1


ThisForm.stopordernotification1.combo1.RowSource = p2
ThisForm.stopordernotification1.stoporderindex = p3

When I click the dropdown arrow I get nothing.