*!*    ==================================
*!*    说明：
*!*    这是中考志愿第二阶段录取程序，第一阶段（重点高中）已录取完成，分数线为924；
*!*    该阶段分数线（djdb.tdf）为重点高中分数线下70分，即854分以上，且djdb.dxs必须为T；
*!*    以下是我写的程序，为什么dxs表都没反映，数据不会填到定向生表中？完整的在附件中
*!*    ==================================

*!*    ==================================
*!*    字段说明：
*!*    dxs表：xxdm(就读学校代码)，zgf（最高分），zdf（最低分），lqrs（录取人数），dxsme（定向生名额）
*!*    ============
*!*    djdb表：bmh（报名号），dxs（定向生资格），tdf（投档分），djf（等级分），yzgz1（优质高中1志愿），dbgz1（达标高中1志愿），dbgz2（达标高中2志愿）
*!*            ybgz1（一般高中1志愿），ybgz2（一般高中2志愿），ybgz3（一般高中3志愿），lq（录取学校），zy（录取类型），xxdm（就读学校代码）
*!*    ==================================

PUBLIC Inindex as Integer
CLOSE ALL
SET TALK OFF
SET SAFETY OFF
SET PATH TO C:\Users\Administrator\Desktop\zylq

fs=Val(Trim(Inputbox("请输入重点高中分数线")))
Use djdb In 1
Use dxs In 2
Select 1
Do While tdf>=fs-70 And tdf<fs
    If Empty(lq) AND dxs=.t.
        For inindex=3702 To 3717
            Seek Evaluate(Trim(Chr(Inindex)),"xxdm","djdb") Order xxdm In dxs
            If dxs.lqrs<=dxs.dxsme
                Replace dxs.lqrs With dxs.lqrs+1 In dxs
            Endif
        Endfor
    Endif
Enddo

这是附件
运行后dxs表都没改动，不知道是哪里出问题了？

都不行

谢谢

55个录取到同个学校超过55个的话就不录取，除非同分录取