I am trying to populate a combo box with the following code from a form method but the combo box has empty lines corresponding to the array elements.

Form Code

SELECT getSODataQuery
GO Top

ThisForm.Text3.Value = ALLTRIM(pdmVar.userfirstname) + " " + ALLTRIM(pdmVar.userlastname)
ThisForm.Text4.Value = DATE()

Replace getSODataQuery.projengr WITH ALLTRIM(pdmVar.userfirstname) + " " + ALLTRIM(pdmVar.userlastname)
Replace getSODataQuery.projengdl WITH DATE()

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

SELECT getSODataQuery
GO Top

If Type('ThisForm.stopordernotification1') != 'O' Then
		*ThisForm.AddObject('stopordernotification1','stopordernotification', 'LiftStop', pdmFunc.getprogrammanagementlist(), pdmVar.soIndex)
		ThisForm.AddObject('stopordernotification1','stopordernotification', 'LiftStop', @solArray, pdmVar.soIndex)
	
		*ThisForm.AddObject('stopordernotification1','stopordernotification', 'Approval', @solArray, pdmVar.soIndex)
	Else
		ThisForm.RemoveObject('stopordernotification1')
		*ThisForm.AddObject('stopordernotification1','stopordernotification', 'LiftStop', pdmFunc.getprogrammanagementlist(), pdmVar.soIndex)
		ThisForm.AddObject('stopordernotification1','stopordernotification', 'LiftStop', @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("ApproveLift1", pdmVar.soIndex)

Class init code

LPARAMETERS p1, p2, p3

ThisForm.stopordernotification1.whatsotype = p1

*MESSAGEBOX(p2[1])
*MESSAGEBOX(p2[2])
ThisForm.stopordernotification1.RowSource = "p2"

ThisForm.stopordernotification1.stoporderindex = p3