Cetin,
Here's the code from the cboDept.click():
LOCAL ARRAY lacGroupArray[1]
LOCAL lnACnt && set local variable for array counter.
store '' to lacGroupArray
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_l_grp ;
FROM snag_temp ;
WHERE snag_temp.ass_l_dept = gcDeptNo ;
INTO ARRAY lacGroupArray
THISFORM.cboGroup.CLEAR &&Clear combo box
FOR lnACnt = 1 TO ALEN(lacGroupArray)
THISFORM.cboGroup.ADDITEM (lacGroupArray[lnACnt])
lnACnt = lnACnt + 1
ENDFOR
THISFORM.cboGroup.ENABLED = .T. &&Enable combo box
release lacGroupArray &&release array from memory
ELSE
THISFORM.cboGroup.ENABLED = .F.
ENDIF
The funny thing is that it worked this morning when I tried it, now...no dice
Thanx
Perry
Perry E. Chrzanowski
Programmer/Analyst
Saturn (Solutions) Inc.