学籍号，xjh
总成绩，zcj
分区标志，fqbz
调区要求A
数据库已按zcj排好初始分区（fqbz），有需要调整的在A字段,list for a<>0 AND fqbz<>a如下图
有调整需求的只有10条记录



按A字段要求找zcj（总成绩）相同的做同等对调，
比如第一条5号记录，A字段值为1不同于fqbz字段值为3，需要做同等对调，将本条记录的fqbz由3替换为1，这样分区为1的就多一人，为同等调整，需要找到fqbz为1且总成绩为936（有可能很多条这样的记录）一条记录将他的fqbz换成3，这样保证同等对调。
比如第二条8号记录，A字段值为2不同于fqbz字段值为1，需要同等对调，但是找不到zcj（总成绩）为934.5，fqbz为2的记录做同等对调，本条记录不予调整。
变了一段小程序但运行结果不对，请帮助修正。
loca for a<>0 AND fqbz<>a
dime arr(4)
SCATTER FIELDS xjh,zcj,fqbz,a TO arr
loca for fqbz=arr(4) and zcj=arr(2) and a=0
repl fqbz with arr(3)
loca for xjh==arr(1)
REPLACE fqbz with arr(4)
clea
LIST for a<>0 AND fqbz2<>a

SCATTER FIELDS xjh,zcj,fqbz,a TO arr
修改为SCATTER FIELDS xjh,zcj,fqbz,a TO arr for a<>0 AND fqbz<>a
其他的地方还没看清，至少这里肯定有问题。不加条件就是把原来所有的记录传送到数组里去了。
后面的两条REPLACE命令肯定有问题，数据指针没有移动，你永远是第一行相关元素的值去修改

[此贴子已经被作者于2017-7-31 22:55编辑过]

我是loca了一条（当然符合这个条件的记录有多条）但loca会定位到第一条，传到数组的是符合条件的第一条的记录,加上你这个条件后反而错误。

[此贴子已经被作者于2017-8-1 07:56编辑过]

loca for a<>0 AND fqbz<>a
DO  while found()
    DISPLAY
    **dime arr(4)
    **SCATTER FIELDS xjh,zcj,fqbz,a TO arr
    **repl fqbz with arr(3) for fqbz=arr(4) and zcj=arr(2) and a=0
    **REPLACE fqbz with arr(4) FOR  xjh==arr(1)
    CONTINUE
ENDDO
这样也是错误，请帮助修改**部分以实现正确替换，谢谢！

这样可否：
SELECT * FROM "tb - 副本.dbf" WHERE (a != 0) AND (a != fqbz) INTO CURSOR tmp READWRITE
SELECT tmp
GO TOP
DO WHILE !EOF()
    nRecno = RECNO()
    SCATTER TO arr
    LOCATE FOR fqbz==arr[4] AND zcj==arr[2]
    IF FOUND()
        REPLACE fqbz WITH arr[3]
        GO nRecno
        REPLACE fqbz WITH arr[4]
    ELSE
        GO nRecno
    ENDIF
    SKIP
ENDDO
BROWSE

谢谢，我试试，请问如何让我这段循环执行，只执行符合条件的一条，遇到不符合条件的如何继续。
loca for a<>0 AND fqbz<>a
SCATTER FIELDS xjh,zcj,fqbz,a TO arr
loca for  fqbz=arr(4) and zcj=arr(2) and a=0
if found()
    repl fqbz with arr(3)
    repl fqbz with arr(4) for xjh=arr(1)
endif

按A字段要求找zcj（总成绩）相同的做同等对调...
你上面的分数,只有934这个分数才有相同的,那就只有这个才能调,其他的不能调了?

不是的，除了8号记录找不到对等934.5分的，其他都有同等分数的需要调整

我试了一下，不行，我可能没说明白，我需要同分对调，比如5号记录，zcj为936分，按A自带要求需要调整，把他从fqbz为3区重新分到1区了，需要找一个从1区找一个936分的调成3区，要不然1区会多一个人。但是8号记录，虽然要求调整，但是找不到一个和他934.5分相同的做对等，就不调整。麻烦再帮忙，谢谢。

试了一下，比如5号记录，zcj为936分，要找一个1区936分的，但没找到，怎么办？