回 帖 发 新 帖 刷新版面

主题:如何解决程序运行中文件以独占方式打开的问题?

我的一段程序,原来运行的好好的,这几天老出现提示:
  程序错误。文件必须以独占方式打开。
请问老师,这是什么原因造成的(杀了毒,也没用)?如何解决?
set cent on
set inte on
set mark to .
set seco off
set date ansi
set talk off
SET SYSMENU OFF
SET SYSMENU TO
SET DATE LONG
SET ENGINEBEHAVIOR 70
SELECT A
USE RK 
SELECT B 
USE KC INDEX MYINDEX 
SELECT C
USE FH
SELECT D
USE CK 
set order TO tag bs
REPL ALL JE WITH 金额 FOR JE=0
SELECT F
USE MM
go 1
SELECT e
USE pm 
go 1     
select g
use mc 
SELECT H
USE XX 
SELECT 11
USE RRKK 
PACK
SELECT 12
USE CCKK 
SELECT 13
USE FFHH 
[color=008080][color=0000FF][color=FF0000][size=3]SELECT 14
*USE ZYZM &&原来为此句
USE ZYZM EXCLUSIVE  &&出现提示后改成此句仍然不行
*PACK    &&后来删了此句也不行[/size][/color][/color][/color]
SELECT 15
USE JRJL 
SELECT 16
USE NFSQ 
SELECT 17
USE CCKK1 
SELECT 18
USE RRKK2 
SELECT 19
USE rrkk1 
SELECT 20
USE FFHH1 
SELECT 21
USE SQPM 
DO FORM DL.SCX



回复列表 (共8个回复)

沙发

为什么不直接把这些表加到表单的数据环境里去呢?就不用写这么多了

打开数据环境,找到这个表,鼠标右键/属性,EXCLUSIVE改为 .T.

板凳

琅拿度老师,谢谢你的帮助。按照你的指点,问题还没解决。为什么不建表单,而要在这里打开这么多表,主要是为了在后面的表单中切换表方便。

3 楼

可能是你的编程数据环境发生了变化!

4 楼

你用:
SET EXCLUSIVE ON
试试看!

5 楼

也可以设置

工具-》数据-》在《以独占方式》前点一下(打勾)

6 楼

SET CENT ON
SET INTE ON
SET MARK TO .
SET SECO OFF
SET DATE ANSI
SET TALK OFF
SET SYSMENU OFF
SET SYSMENU TO
SET DATE LONG
SET ENGINEBEHAVIOR 70
USE RK IN A
USE KC IN B INDEX MYINDEX 
USE FH IN C
USE CK IN D
SET ORDER TO tag bs
REPL ALL JE WITH 金额 FOR JE=0
USE MM IN F
go 1 IN F
USE pm  IN e
go 1 IN e
use mc IN g
USE XX IN H
USE RRKK IN 11
PACK IN 11
USE CCKK IN 12
USE FFHH IN 13
*USE ZYZM &&原来为此句
USE IN SELECT("ZYZM")
USE ZYZM IN 14 AGAIN EXCLUSIVE  &&出现提示后改成此句仍然不行
PACK IN 14    &&后来删了此句也不行
USE JRJL IN 15
USE NFSQ IN 16
USE CCKK1 IN 17
USE RRKK2 IN 18
USE rrkk1 IN 19
USE FFHH1 IN 20
USE SQPM IN 21
DO FORM DL.SCX

7 楼

非常感谢cbl518老师!用4楼的办法就解决了问题!5楼的办法我前两天用过,没凑效。6楼的方法我也要运行,可多学点东西。
再次感谢cbl518老师连续四次为我答疑释惑!

8 楼

cbl518老师,您好!
      按您在6楼提供的解决方案,运行良好。再次真诚地感谢您!

我来回复

您尚未登录,请登录后再回复。点此登录或注册