单独运行时无误，但连编后要求用独占方式打开
编号：QA003494
建立日期: 2000年11月2日 最后修改日期：2000年11月2日
所属类别：
yangming:
操作系统：win98
编程工具：vfp5.0
问题：在VFP中单独运行该表单时无误,但连编后运行则出现找不到某视图,或表正在使用,或要求用独占方式打开。程序段如下:
IF THISFORM.CHECK1.VALUE=0 .AND. THISFORM.CHECK2.VALUE=1
sele vfy
zap
sele * from 费用 where 费用.日期>=thisform.text2.value .and. 费用.日期<=thisform.text3.value into cursor cc
sele cc
SCAN
SCATTER memvar
INSERT into vfy from memvar
ENDSCAN
sele vfy
replace all vfy.票数 with n
sort to dd on 货代公司
use dd
total to cw on 货代公司
use cw
repl all cw.其他 with cw.港杂费+cw.关税+cw.换单费+cw.监管手续费+cw.铅封+cw.规费
repo form 财务report to print preview
use
ENDIF
该表单数据环境为:费用表,视图VFY,最终目的调用报表-财务REPORT进行打印,报表数据环境为CW表，其中费用为数据库表,VFY为视图,DD,CW为自由表。
另外,还想问一下:"文件必须以独占方式打开",该提示在什么情况下出现 ,一般为什么错误?
水平: 刚入门
回答:
阿强的意见：
VFP中的数据库缺省方式下是共享打开的，但Sort命令要求独占方式打开。
SUN的意见：
试用：
if not used('vfy') then
use vfy excluse in 0
else
select vfy
use
use vfy excluse in 0
end if;
select vfy
zap
use vfy
use vfy in 0
select vfy
select * from 费用......
此问题由SUN等回答。
| |
|
|
| |
|
|
