文件怎么以独占方式打开？
我做了一个查询表单，其中根据列表框－系，来确定专业情况如下图：
代码如下：
select 专业名称1
count to c
for i=1 to c
go i
delete
endfor
pack
select 专业名称
count to c
for i=1 to c
select 专业名称
go i
xb=系部
zy=名称
if xb=thisform.combo1.value
select 专业名称1
append blank
replace 系部 with xb,名称 with zy
endif
endfor
thisform.refresh
结果点击系以后出现如下对话框：
请各位高手指点一下
