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   

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