回复 楼主 zhousr
试一试,我的理解对吗?
*** test.prg
CLEAR
CREATE CURSOR _T(nNo n(5),Xkkm C(80),cBz c(5))
INSERT INTO _t(nNo,xkkm) values(1,"物理,历史,化学,AABB")
INSERT INTO _t(nNo,xkkm) values(2,"化学,BBCC,物理,历史")
INSERT INTO _t(nNo,xkkm) values(3,"物理,生物,历史")
INSERT INTO _t(nNo,xkkm) values(4,"化学,政治,物理")
INSERT INTO _t(nNo,xkkm) values(5,"历史,DDSS,化学,地理")
INSERT INTO _t(nNo,xkkm) values(6,"地理,化学,历史")
INSERT INTO _t(nNo,xkkm) values(7,"政治,历史,地理")
INSERT INTO _t(nNo,xkkm) values(8,"生物,历史,地理")
INSERT INTO _t(nNo,xkkm) values(9,"历史,化学,AACC,物理")
SELECT _T
SCAN
cStr = xkkm
=ALINES(ARR,cStr,",")
IF ASCAN(ARR,"物理")>0 AND ASCAN(ARR,"化学")>0
REPLACE cBz WITH "合标"
ENDIF
ENDSCAN
SELECT _t
BROWSE LAST
我的思路:
第一步、将选考科目合并在一个字段(如xkkm),学科之间用逗号隔开;
第二步、将选考学科xkkm字段值读取到数组ARR中
第三步、判断数组中是否包含某学科,若符合要求,则作标志。