USE (gcDATA) + '\sysuse' ORDER TAG cid ALIAS sysuseshould read
USE (gcDATA + '\sysuse') ORDER TAG cid ALIAS sysuse>>
Do FORM Login >>READ EVENTS>>
>>>PUBLIC gnuseridcnt , gnpasswordcnt , lcweekday >>>LOCAL x >>> >>>gnuseridcnt = 0 >>>gnpasswordcnt = 0 >>>gnUserLev = 0 >>>m.glValid = .F. >>> >>>Thisform.lblErrorMsg.Caption = '' >>>Thisform.lbltoday.Caption = 'Today is ' + CDOW(DATE()) + ', ' + ; >>> CMONTH(DATE()) + ' ' + STR(DAY(DATE()),2) + ', ' + STR(YEAR(DATE()),4) >>>Thisform.lblPC.Caption = 'You are using a ' + SYS(17) + ' PC' >>> >>>IF ! USED('sysuse') >>> USE (gcDATA) + '\sysuse' ORDER TAG cid ALIAS sysuse >>> SELECT sysuse >>>ELSE >>> SELECT sysuse >>> SET ORDER TO TAG cid >>>ENDIF >>> >>>x = 1 >>>>>>I can add the "DODEFAUL()" command with out any change in behavior. The x = 1 is there so I could have a place to stop in the debugger.