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

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

请各位高手指点一下