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        && 这些就是可填报的志愿

这个意思对吗？

梅子论坛里，老车粗口被封，之前也是极力的广告挖人，现在又在这里拉人头了

从朋友口中得知，老车此人是有前科之人。原来如此！

试试下面的吧：

Xk1="物"
Xk2="化"
Xk3="生"

SELECT * FROM 样表 WHERE .F. INTO table cx READWRITE
SCAN
    SCATTER MEMO TO bb &&将当前记录包括备注字段读入数组bb
    If ("1"$必修科数) and ("&xk1"$必修科目 or "&xk2"$必修科目or "&xk3"$必修科目)
    INSERT INTO cx FROM ARRAY bb
    ENDIF
    If ("2"$必修科数) and (("&Xk1"$必修科目and "&xk2"$必修科目) or;
     ("&xk1"$必修科目and "&xk3"$必修科目) OR ("&xk2"$必修科目and "&xk3"$必修科目))
    INSERT INTO cx FROM ARRAY bb
    ENDIF
    If ("3"$必修科数) AND ("&Xk1"$必修科目and "&xk2"$必修科目and "&xk3"$必修科目)
    INSERT INTO cx FROM ARRAY bb
    ENDIF
    IF ("0"$必修科数)
    INSERT INTO cx FROM ARRAY bb
    ENDIF
ENDSCAN

谢谢各位老师，都很厉害.

楼主的问题应该与必修科目有关系，与必修科数关系不大

回复36楼，sdta老师，您好，必修科数为1时，也有很大关系.

回复31楼，laowan001老师，很对，谢谢

回复34楼，zhousr老师，得到的是空表.

这样呢
*可填报
SELECT * FROM 样表 WHERE CHRTRANC(必修科目,"不限物化生","") != 必修科目
*不可填报
SELECT * FROM 样表 WHERE CHRTRANC(必修科目,"不限物化生","") == 必修科目