文件怎么以独占方式打开?
我做了一个查询表单,其中根据列表框-系,来确定专业情况如下图:
代码如下:
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
结果点击系以后出现如下对话框:
请各位高手指点一下