*!*    ==================================
*!*    说明：
*!*    这是中考志愿第二阶段录取程序，第一阶段（重点高中）已录取完成，分数线为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表都没改动，不知道是哪里出问题了？

你的　DO　WHIL　循环中少一个移动指针的命令（SKIP）

没什么提示？

提示：少Inputbox.prg

都不行

SEEK命令

SEEK Evaluate(Trim(Chr(Inindex)),"xxdm","djdb") Order xxdm In dxs
使用方法也不对
CHR()能在这里用吗
EVALUATE()能这样用吗
建议多看看VFP的帮助文件
SEEK命令使用前，要创建索引，如果在表结构中事先建立了索引，使用前要指定主控索引。

谢谢

打开了二个表
从djdb开始DO循环//IF判断//FOR循环//扫描查找后判断记录进入了dxs，程序没有回到djdb上来（指针是需要来回切换的）。所以是楼主说的结果