文件以独占方式打开

xiaoshengaimm 2009-05-12 01:14:35

我在一个表单中有两个表，对第二个表的记录进行删除的时候，它提示文件要以独占的方式打开，但是我在一开始前就已经设置为set exclusive on 。我的代码如下：

SET EXACT ON
SET EXCLUSIVE ON
a=0.00
tempstr=MESSAGEBOX("确定要删除记录",4+32+256,"删除记录")
IF tempstr=6
date1=DTOC(日期)
shouru=STR(收入数目)
DELETE
PACK
SELECT 2
set exclusive on
LOCATE FOR 日期=CTOD(date1)
SCAN FOR 日期>CTOD(date1).or.日期=CTOD(date1)
replace 收入数目 WITH 收入数目-VAL(shouru)
replace 净资产 WITH 净资产-VAL(shouru)
replace 资产总计 WITH 资产总计-VAL(shouru)
IF 收入数目=a
IF 支出数目=a
IF 债务数目=a
MESSAGEBOX("sfsfgsg")
DELETE
PACK
ENDIF
ENDIF
ENDIF
ENDSCAN

thisform.grid1.recordsource='收入表'
thisform.Refresh
ENDIF
SELECT 1

希望大家帮帮忙，谢谢大家。比较急！！！！！！！

...全文

325 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

feiren_1012 2009-06-30

打赏
举报

在你set exclusive on之前，表已经打开了，故建议你再写一下：
use 表1 exclusive in 0
use 表2 exclusive in 0

huangcyzy 2009-05-27

打赏
举报

补充数据环境中的设置方法：在数据环境中选中待处理的表，单击右键，在临时表的属性对话框中设置exclusive属性为.T.即可。

十豆三 2009-05-14

打赏
举报

use table1 exclusive in 0

xy111222333 2009-05-12

打赏
举报

支持1楼

ACMAIN_CHM 2009-05-12

打赏
举报

use table1 exclusive in 0

用一楼的方法应该可以解决。

WWWWA 2009-05-12

打赏
举报

SET EXCLUSIVE ON
use tt
TT以独占方式打开
USE TT
SET EXCLUSIVE ON
TT以共享方式打开

tszsc 2009-05-12

打赏
举报

独占打开，要在一开始打开表时用语句指名，或是打开之前用语句设置。
你提供的代码显然是删除按钮的代码，在这时set exclusive on 已不起作用（因为之前表已打开）。
你的表是在load事件中打开的话：use table1 exclusive in 0
如果是在数据环境中，则到数据环境设置即可。