* FORM INIT * parameters tcMode,tcSubject,tdDate,tiPriority,tcCategory,tiPercent,tcNotes,tiTaskID ***************************************************************** * Get a listing of all categories to display in the ComboBox * And load into an array, Insert a blank value at the top of the * array stack. ***************************************************************** PUBLIC ARRAY TaskCategories[1] IF SQLEXEC(gnConnHandle,"Select Distinct category from coTaskList order by category","CatList")=1 select Category from catList ORDER BY Category into array TaskCategories DIMENSION TaskCategories[_tally+1] AINS(TaskCategories,1) TaskCategories[1]=SPACE(50) ELSE TaskCategories[1]=SPACE(50) ENDIF thisform.frmcategory=tcCategoryUsing the Command window, I can see that the array has 3 entries (as it should):