各位大神，我今年开始做招生录取相关的工作，我区中招按平行志愿录取，每个考生可填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  && 等级分线要求

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

同分一并录取，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.等级分4C6D以上,还有tdf不低于3701学校的分数线下52分三个条件。

其实就是控制D和E两个等级，因此我用if Occurs("E",zyk.djf)<=jhk.dje .And. Occurs("D",zyk.djf)<=jhk.djD控制。

定向生满足志愿库.dxs=.t.等级分4C6D以上,还有tdf不低于3701学校的分数线下52分三个条件。4C6D其实就是控制D和E两个等级，因此我用if Occurs("E",zyk.djf)<=jhk.dje .And. Occurs("D",zyk.djf)<=jhk.djD控制。

3701也是通过志愿录取的啊，录取满320人分数线就出来了，分数线就在计划库里。我就是这里卡扣了。可能我不善于表达吧。