CREATE CURSOR tt (djf C(9), djf1 C(20))
INSERT INTO tt (djf) VALUES ("BCBABBAAA")
INSERT INTO tt (djf) VALUES ("BDBBBCCBA")
INSERT INTO tt (djf) VALUES ("ABAAABAAA")
INSERT INTO tt (djf) VALUES ("ACDBBBBBA")
INSERT INTO tt (djf) VALUES ("ADBBABBAA")

REPLACE ALL DJF1 WITH iif(occurs("A", djf) > 0, str(occurs("A", djf), 1) + "A", "") + ;
  iif(occurs("B", djf) > 0, str(occurs("B", djf), 1) + "B", "") + ;
  iif(occurs("C", djf) > 0, str(occurs("C", djf), 1) + "C", "") + ;
  iif(occurs("D", djf) > 0, str(occurs("D", djf), 1) + "D", "")
BROWSE
按照TONGDENG版主的说法这叫硬编码

自动生成成绩等级计算公式的代码

CREATE CURSOR tt (djf C(10), djf1 C(20))
INSERT INTO tt (djf) VALUES ("BCBABBAAA")
INSERT INTO tt (djf) VALUES ("BDBBBCCBA")
INSERT INTO tt (djf) VALUES ("ABAAABAAA")
INSERT INTO tt (djf) VALUES ("ACDBBBBBA")
INSERT INTO tt (djf) VALUES ("ADBBABBAA")
* 成绩等级范围为：A [color=#808080]- F，对应的ANSI值为 65 - 70, 如果6个等级不够用，还可以增加[/color]
* 构造成绩等级计算公式
cStr = ""
N1 = 65
N2 = 70
FOR i = N1 TO N2
    cStr = cStr + IIF(I > N1, " + ", "") + "IIF(OCCURS('" + CHR(I) + "', djf) > 0, TRANSFORM(OCCURS('" + CHR(I) + "', djf))" + " + '" + CHR(I) + "', '')"
ENDFOR
MESSAGEBOX(cStr, 0, "生成成绩等级计算公式") && 此行代码只是显示成绩等级计算公式
REPLACE ALL DJF1 WITH &cStr
BROWSE 

学习了