I have a form running a private datasession with optimistic buffering. I insert a blank record into table a, then update field x through an interactive change procedure.
Most times this works just fine. However, sometimes the changes are not accepted by the database. I am suspended on the procedure right now and the datasessionid=4, rlock on table a is .t. - even flock on table a is .t. right now. yet when the replace command is run, the database field remains blank.
The record pointer is on the last field of the table, which is consistent with an insert - sql command that setup the new record I should be updating.
here's the procedure:
PARAMETERS l_check
SET STEP ON
thisform.pageframe1.page1.tol_no.Value = 0
thisform.pageframe1.page1.tol_yes.Value = 0
IF thisform.isloading AND thisform.isediting then
l_check = VAL(jcpmt.tolerance)
ELSE
replace jcpmt.tolerance WITH ALLTRIM(STR(l_check))
ENDIF
IF l_check = 1
thisform.pageframe1.page1.tol_yes.Value = 1
ELSE
thisform.pageframe1.page1.tol_no.Value = 1
ENDIF
thisform.pageframe1.page1.tol_yes.Refresh
thisform.pageframe1.page1.tol_no.Refresh
the replace command sometimes just doesn't update the table....what am I missing here?
thanks in advance!
Steve Howie, owner
DaSH Technology
Denver, CO