主题:如何解决程序运行中文件以独占方式打开的问题?
我的一段程序,原来运行的好好的,这几天老出现提示:
程序错误。文件必须以独占方式打开。
请问老师,这是什么原因造成的(杀了毒,也没用)?如何解决?
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
程序错误。文件必须以独占方式打开。
请问老师,这是什么原因造成的(杀了毒,也没用)?如何解决?
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