LOCAL xfile,bxkm[3],ii
bxkm[1] = '物' && bxkm数组保存已选的科目,其中元素值可以为空‘’
bxkm[2] = '政'
bxkm[3] = '地'
xfile = SYS(2015)
SELECT *,CAST(0 AS INT) 已选必修科数 FROM 样表 INTO CURSOR &xfile READWRITE
FOR ii=1 TO ALEN(bxkm)
IF !EMPTY(bxkm[ii])
REPLACE ALL 已选必修科数 WITH 已选必修科数+1 FOR AT(bxkm[ii],必修科目)>0
ENDIF
ENDFOR
REPLACE ALL 已选必修科数 WITH 0 FOR 已选必修科数<VAL(必修科数)
REPLACE ALL 已选必修科数 WITH 1 FOR 已选必修科数>=VAL(必修科数)
SELECT * FROM &xfile WHERE 已选必修科数>0 && 这些就是可填报的志愿
这个意思对吗?