各位大神，我今年开始做招生录取相关的工作，我区中招按平行志愿录取，每个考生可填18个学校（在计划库.dbf中）共19个志愿，考生志愿信息及其他信息在志愿表.dbf中，其中3701的学校具有定向生招生政策，志愿代码为003701，具体名额分配到各校（在定向生计划库.dbf中），各校定向生分数线为3701学校分数线下52分，比如3701学校的分数线为652分，则各校定向生分数线为600分，等级线要求4C6D且考生志愿库中dxs为.t.；下面附件里有我这个相关的程序（录取.prg）和三个数据表（志愿库.dbf、计划库.dbf、定向生计划库.dbf），可以运行，但是结果好像不对，不知道哪里出问题了，特别是定向生这块，02年的时候因为二级有接触过一段时间vfp,现在基本忘光，请各位大神指点。

最大的问题是 if Occurs("E",zyk.djf)<=jhk.dje .And. Occurs("D",zyk.djf)<=jhk.djD .And. Occurs("C",zyk.djf)<=jhk.djC   && 等级分线要求
例如要求是4C6D，考生如果是6C4D，应该是合格的，但按你的语句，是不合格的。（C有6个大于计划库中的4）
其它还有些小缺陷。
1、前后有了Evaluate(kszy)<>'003701' else后面就不用Evaluate(kszy)='003701'（当然用了结果不会错。）
2、Do While !Eof("zyk")
            If Empty(zyk.lqdm)&&这个多余。因为开始时，lqdm=''而后面指针一直后移动,不会有!Empty(zyk.lqdm)
3、 if Occurs("E",zyk.djf)<=jhk.dje .And. Occurs("D",zyk.djf)<=jhk.djD .And. Occurs("C",zyk.djf)<=jhk.djC   这里除了判断等级分要求，是否要判断lqjh<lqrs?
4、close all
不少人喜欢用这一语句 （或者是CLOSE DATABASE all）
这不是一个好习惯，将来不便于程序升级。比如，做成项目。
你这里似乎用 close table all 就足够了。

那改成这样呢if Occurs("E",zyk.djf)<=jhk.dje .And. Occurs("D",zyk.djf)<=jhk.djD  && 等级分线要求

可以将等级分换算为具体分数，如：
A = 65 (ASC("A"))
B = 66
C = 67
D = 68
E = 69
4C6D = 4 * 67 + 6 * 68 = 676
SCAN FOR TDF >= 600 AND OCCURS("E", djf) = 0 AND djf1 <= 676 && 筛选条件
* 具体代码
ENDSCAN

主要的问题是定向生的问题

问题：
1、定向生与计划生录取的先后顺序是如何规定的
2、如果某学校的录取名额为30人，当录取人数满30人后，但后面还有相同分数的人数若干，是否录取
3、说说三个表中相关字段的中文含义：
   如 定向生计划库 中 ZHZF, FSX 是什么意思
4、志愿库中 TDF 与各表的 ZHZF,FSX 是什么关系

解释清楚相关问题，所有问题就不是问题了。

同分一并录取，zhzf是最后一名考生的总分，fsx是分数线

If zyk.tdf == jhk.zhzf
    Replace zyk.lqdm With Evaluate(kszy) In zyk
    Replace jhk.lqrs With jhk.lqrs+1 In jhk
    EXIT
ENDIF
这段就是控制同分录取的。

一直困扰我的是定向生分数线的问题，因为定向生分数线一定要在3701学校录取结束后地分数线减去52分，所以第一志愿zy1就没有003701这个志愿，要从第二个志愿zy2才会产生这个志愿，但是其他学校也是同时在做志愿匹配录取，没办法等3701志愿录满才去查询003701，这个我一直找不到解决的办法。

定向生录取要具备那些条件，在 志愿库 表中只有DXS = .T.，DJF <= 4C6D，还需要什么条件
自己要主动把问题说清楚，不要让别人问你