I'm trying to load an array into a combo box after the form has been loaded. I'm relating the contents of the CB to another field in a table, which I choose from another CB. I'd appreciate some help on this. Here's the code i'm using:
LOCAL lnACnt && set local variable for array counter.
lnACnt = 1 && initialize variable
gcDeptNo = THISFORM.cboDept.VALUE
IF !EMPTY(THISFORM.cboDept.VALUE)
*--Redefine group array pertaining to the department chosen
SELECT DISTINCT snag_temp.ass_group ;
FROM snag_temp ;
WHERE snag_temp.ass_l_dept = gcDeptNo ;
INTO ARRAY gacGroupArray
THISFORM.cboGroup.ENABLED = .T. &&Enable combo box
THISFORM.cboGroup.CLEAR &&Clear combo box
*--Load array into combo box
FOR lnACnt = 1 TO ALEN(gacGroupArray)
THISFORM.cboGroup.ADDITEM
lnACnt = lnACnt + 1
ENDFOR
ELSE
THISFORM.cboGroup.ENABLED = .F.
ENDIF
THISFORM.REFRESH()
I believe I'm thinking in VB, but isn't the additem method similar.
Thanx in advance.
Perry
Perry E. Chrzanowski
Programmer/Analyst
Saturn (Solutions) Inc.