>>MYFORM.scx has the following DataEnvironment: >> ULOGKEYS >> USERLIST >> SOITEM >> USERLIST1 (a 2nd copy of USERLIST for dupe checking) >> >>>ULOGKEYS is a one-field, one-record table. The record holds
>>in MYFORM.Load I have: >> set multilocks ON >> >> =CursorSetProp('Buffering',2,'USERLIST') >> =CursorSetProp('Buffering',2,'SOITEM') >> =CursorSetProp('Buffering',5,'ULOGKEYS') >> >
>>in MYFORM.FetchNextKey() I have: >> cRetVal = ULOGKEYS.CurrKey >> nCurrKey = val(ULOGKEYS.CurrKey) >> nNextKey = nCurrKey + 1 >> cNextKey = allt(str(nNextKey)) >> replace ULOGKEYS.CurrKey with cNextKey >> x = TableUpdate(.t.,.t.,'ULOGKEYS') >> UNLOCK IN ULOGKEYS >
>>after the TableUpdate: >> cRetval = "2" && Correct >> nCurrKey = 2.00 && Correct >> nNextKey = 3.00 && Correct >> cNextKey = "3" && Correct >> x = .T. && Correct >> >> BUT: >> ULOGKEYS.CurrKey = "2" && I want it to be "3" >