哪位大神帮我看看这段程序哪里有问题，我要查找满足条件的成绩并替换它，只能替换第一条没办法全部替换？

t1a、t1b....是什么意思？

缺少循环语句，所以只能替换第一条记录
VFP9代码
UPDATE TY SET FS1=FS FROM PFK WHERE BETWEEN(CJ1,T1A,T1B) AND XB=PFK.XB
UPDATE TY SET FS2=FS FROM PFK WHERE BETWEEN(CJ2,T2A,T2B) AND XB=PFK.XB
UPDATE TY SET FS3=FS FROM PFK WHERE BETWEEN(CJ3,T3A,T3B) AND XB=PFK.XB

**********************
VFP6代码
USE PFK
SCAN
    UPDATE TY SET FS1=FS WHERE BETWEEN(CJ1,T1A,T1B) AND XB=PFK.XB
    UPDATE TY SET FS2=FS WHERE BETWEEN(CJ2,T2A,T2B) AND XB=PFK.XB
    UPDATE TY SET FS3=FS WHERE BETWEEN(CJ3,T3A,T3B) AND XB=PFK.XB
ENDSCAN

或者
USE PFK IN 0
USE TY IN 0
SELECT PFK
SCAN
    SELECT TY
    LOCATE FOR BETWEEN(CJ1,T1A,T1B) AND XB=PFK.XB
    IF FOUND()
        REPLACE ALL FS1 WITH PFK.FS
    ENDIF

    LOCATE FOR BETWEEN(CJ2,T2A,T2B) AND XB=PFK.XB
    IF FOUND()
        REPLACE ALL FS2 WITH PFK.FS
    ENDIF
    LOCATE FOR BETWEEN(CJ3,T3A,T3B) AND XB=PFK.XB
    IF FOUND()
        REPLACE ALL FS3 WITH PFK.FS
    ENDIF
ENDSCAN

REPLACE 命令后要加ALL

不能运行，出错

加ALL之后无法算出分数，全部等于0

你的目的没明确，没说明你需要做什么！

写程序的时候，需要分层次！
if
    xxxxxx
else
    xxxxxx
endif

感觉，他的程序还需要有一个判断姓名+性别的吧！

你给的判断条件得出的结果就是全部相等啊！你没判断姓名+性别吧？

UPDATE TY SET FS1=FS FROM PFK WHERE BETWEEN(CJ1,T1A,T1B) AND TY.XB=PFK.XB
UPDATE TY SET FS2=FS FROM PFK WHERE BETWEEN(CJ2,T2A,T2B) AND TY.XB=PFK.XB
UPDATE TY SET FS3=FS FROM PFK WHERE BETWEEN(CJ3,T3A,T3B) AND TY.XB=PFK.XB