Class: | login |
*-- (c) Microsoft Corporation 1995 *- this class can't be used independent of the application IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade =MESSAGEBOX(CLASSBROWERR_LOC) RETURN .F. ENDIF thisform.cboName.RowSource = "SELECT " + ; thisform.cFieldName + ; " FROM " + this.cTable + ; " ORDER BY " + thisform.cFieldName + ; " INTO CURSOR cNames" thisform.cboName.Requery() IF _tally > 0 thisform.cboName.ListIndex = 1 ELSE =MESSAGEBOX(NOEMPLOYEES_LOC, ; MB_ICONEXCLAMATION, ; TASTRADE_LOC) RETURN .F. ENDIF