Раз никто не берется ответить, прийдется продолжить:
Копать надо тут:
recset.LockType=2; ('Pessimistic Lock)
Таким образом если Вы начали что-то делать с записью, то уже никто больше сделать ничего не сможет. Если поменять значение на 3 то сохраняться будут последние изменения...
Как проверить заблокирована запись или нет? Если в FoxPro то очень просто:
1.
2.
3.
4.
if lock() then
* можно что-то делать
else
* запись кем-то блокирована, делать ничего нельзя...
endif
- транзакции со свободными таблицами можно применять только в VFP 9.0 :(
авторПроблема уточнилась, оказывается не может измениться поле на котором стоит курсор-указаталь, т.е. в режиме редактирования поля. Как это поббороть, хотя бы получить сведения, редактируется ли в данный момент поле или нет?
Если указатель стоит в FoxPro - то надо там поставить оптимистическую блокировку строки или таблицы - например
1.
SELECT tel
=CURSORSETPROP("Buffering" , 3 )
И не забыть потом сохранить изменения (хотя при перемещении указателя запись сохранится автоматически, подавив любые изменения которые были внеснены кем-то за время вашего бездействия):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
k=SELECT( )
FOR I = 1 TO k
IF NOT EMPTY ( ALIAS(I) )
SELECT (I)
DO CASE
CASE CURSORGETPROP("Buffering")= 5
DO chbuf
CASE CURSORGETPROP("Buffering")= 3
DO chbufr
OTHERWISE
ENDCASE
ENDIF
ENDFOR
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
* check for all table
PROCEDURE chbuf
IF CURSORGETPROP("Buffering")= 5
LOCAL llOverwrite,llChanged, lnField,lcField, lnRec
GO TOP
lnRec=GETNEXTMODIFIED( 0 )
DO WHILE lnRec<> 0
GOTO lnRec
llCnanged=.F.
llOverwrite=.F.
FOR lnField= 1 TO FCOUNT()
lcField=FIELD(lnField)
IF CURVAL(lcField)<>OLDVAL(lcField)
llCnanged=.T.
EXIT
ENDIF
ENDFOR
IF llCnanged
lnResult=MESSAGEBOX("Somebody locked your table. What we have to do?", 4 ,"Try again")
IF lnResult= 6
llOverwrite=.T.
ENDIF
ENDIF
IF llCnanged AND NOT llOverwrite
=TABLEREVERT()
ELSE
IF m.gltransact
BEGIN TRANSACTION
=TABLEUPDATE(.F.,.T.)
END TRANSACTION
ELSE
=TABLEUPDATE(.F.,.T.)
ENDIF
ENDIF
lnRec=GETNEXTMODIFIED(lnRec)
ENDDO
ENDIF
RETURN
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
* check for only one row in table
PROCEDURE chbufr
IF CURSORGETPROP("Buffering")= 3
LOCAL lnField,lcField && llOverwrite,llChanged,
glCnanged=.F.
glOverwrite=.F.
FOR lnField= 1 TO FCOUNT()
lcField=FIELD(lnField)
IF CURVAL(lcField)<>OLDVAL(lcField)
glCnanged=.T.
EXIT
ENDIF
ENDFOR
IF glCnanged
lnResult=MESSAGEBOX("Somebody locked your table. What we have to do?", 4 ,"Try again")
IF lnResult= 6
glOverwrite=.T.
ENDIF
ENDIF
IF glCnanged AND NOT glOverwrite
=TABLEREVERT()
ELSE
IF m.gltransact
BEGIN TRANSACTION
=TABLEUPDATE(.F.,.T.)
END TRANSACTION
ELSE
=TABLEUPDATE(.F.,.T.)
ENDIF
ENDIF
ENDIF
RETURN
