本来我是不主张给原码的,不过我也不知道怎么告诉你,所以我了我的原码给你,希望你能举一反三做出你的程序。
sele kmk
count all to cn
go top
for n=1 to cn
temp=0
xi=kmk.科目
nhere=recno() &&保存当前记录指针的位置
go top
ntop=recno()
do while nhere!=ntop &&判断当前系名是否与已添加到list1中的科目重复
if xi==kmk.科目
temp=1
endif
skip
ntop=recno()
enddo
if temp==0
thisform.combo1.additem(kmk.科目) &&向list1中添加查到的科目
endif
goto nhere
skip
endfor
[此贴子已经被作者于2006-5-14 15:51:13编辑过]