Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
More combo box probs---
Message
 
To
06/08/1998 11:06:17
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Project manager
Miscellaneous
Thread ID:
00124475
Message ID:
00124479
Views:
17
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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform