文件共享，锁的有关问题

文件共享，锁的问题
&& VFP 6.0
&& 使用文件共享方式，盘符映射

&& 执行到红色部分时报错


 select duser

 locate for allt(userno) = allt(thisform.text1.value)
 unlock
 
 if !eof()
  if allt(userpw) != allt(thisform.text2.value)
messagebox("原口令不正确，请重新输入！",64,"提示")
thisform.text2.value =''
thisform.text2.setfocus
return .f. 
  else
  if !lock()
thisform.label9.caption="该操作员代码正在使用中，不可修改！" 
RETURN .f.
endif

  if messagebox("确定修改 “ "+allt(thisform.text1.value)+" ” 操作员密码？",36+256,"提示")!=6
return .f.
else 
repl userpw with allt(thisform.text4.value) for allt(userno)=allt(thisform.text1.value)
&& 为什么执行到这边就报“有其他用户在使用文件” ？？？
endif
  endif
 else
messagebox("操作员号不存在，请重新输入！",64,"提示")
thisform.text1.setfocus
return .f. 
 endif

------解决方案--------------------------------------------------------
1、锁中再REPLACE；
2、用UPDATE SQL语句来替换。