TonyDeng:
看了您写的程序太好了，特别用类的方法来写表单等，受益非淺。
有一个问题，补录的根据是什么？是不是考生在正式录取时在分数优先的前提下志愿优化时没有录取，但个别学校还有空额，此时考生的分数达到了某学校的分数线并且有志愿，就给他录取？是不是这样理介？

另外有一个问题请教：如果各校没有限定分数线，录取原则：名次（各科总分，语数外三科总分等各种条件来排出名次，已预先排好，没有重复名次）优先，来搜索各志愿，其它要求与lbwg相同。数据库中各个字段不变只增加一个名次号。
哪你的代码在何处改一下，可用？请指教。

已在原帖回复

我看了原贴，谢谢这么快回音了。但有一个问题：


您的代码中有分数线，我没有分数线，哪您的代码中:IF zyk.zf >= jhk.fsx && 踏入分数线　　此处如何改？

*-------------------------
        * 正常录取
        *-------------------------
        GOTO TOP IN zyk
        DO WHILE !EOF("zyk")
            FOR lnIndex = 1 TO 6                                                        && 按志愿顺序处理
                lcField = "zyk.zy" + STR(lnIndex,1)
        
                                 IF !EMPTY(EVALUATE(lcField))　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　                    IF SEEK(EVALUATE(lcField), "jhk", "xxdm")                            && 查找志愿学校
                        IF zyk.zf >= jhk.fsx                                            && 踏入分数线　　此处如何改？
                            IF jhk.lqrs < jhk.lqjh   

那个程序的关键之处，其实是数据表的设计，我改动了其中的索引结构，使数据按需要的顺序排序，然后才能说得上算法。VFP的索引是很灵活的，索引键是一个表达式，可以将多个字段（以运算的方式）组合起来，不必专门设计一个主字段索引。你的问题，重点只要考虑如何将各科的名次运算得到总名次，而按照那个总名次排序的结果，满足你真实的排序需要，就可以了。程序的算法，没什么大改动，不考虑分数，就只考虑是否满额了。

事实上，你平时手工怎么操作无误的，程序就仿照你手工的流程做，对不对取决于你原先的手工方案对不对。

取消那个分数线的判断语句

谢谢知道了，一改索引，二取消那个分数线的判断语句 。

分数与名次有什么区别，有分数才有名次。

谁有TonyDeng 的联系方式，请帮助我一下我有急事找他，我的QQ404733981 或者QQ2201293716 或者0411-83112745