我做了一个查询表单，其中根据列表框－系，来确定专业情况如下图：

代码如下：
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
结果点击系以后出现如下对话框：

请各位高手指点一下

如果是命令打开表,
use 表名 exclusive
如果是表单加载数据环境,在相关属性中设置
右击表单,选数据环境,右击表,选属性,数据选项卡,
将exclusive属性=.t.

[此贴子已经被作者于2006-6-1 22:42:55编辑过]

在命令框中输入SET EXCLUSIVE ON