主题:关于系统帐号删除的问题(急啊)!!!
我在设计一个系统帐号删除的表单,代码如下:
yn=messagebox("确定删除",4+32,"系统信息")
if yn=6
if thisform.txt帐号.value=cuser
messagebox("不能删除自己",48,"系统信息")
thisform.txt帐号.setfocus()
else
delete
pack
messagebox("删除成功",64,"系统信息")
thisform.release()
endif
endif
但是我在运行的时候总是说“pack”这里出错,说文件必须用独占方式打开。
我做了好久都解决不了问题,请各位高手帮忙啊!谢谢
yn=messagebox("确定删除",4+32,"系统信息")
if yn=6
if thisform.txt帐号.value=cuser
messagebox("不能删除自己",48,"系统信息")
thisform.txt帐号.setfocus()
else
delete
pack
messagebox("删除成功",64,"系统信息")
thisform.release()
endif
endif
但是我在运行的时候总是说“pack”这里出错,说文件必须用独占方式打开。
我做了好久都解决不了问题,请各位高手帮忙啊!谢谢