SQL命令一般VFP的教材中说的都不太全，帮助文件中的例子较少，没学过的也难全看懂。建议看看Oracle或SQL Server教材中相关的部分。

楼主只是临时抱佛脚，根本不会看的

谢谢

一针见血说出了缺点，不过也请原谅一个初中英语起点人的水平。（真跟着学了不少，也照猫画虎的改了一些，但确实是水平所限）

其他帖子中“关联修改，这应该是VFP最基本的内容之一。用VFP的人越来越多，兴蔚，但不思考的人也是越来越多，悲哀。”确实要反思，活到老，学到老。

[此贴子已经被作者于2019-6-26 20:21编辑过]

@chychychy
可以把你县的中考中招文件，全文上传吗？供学习学习

是这样的，地级市统一安排，县级的高中只是上传条件就是我一楼的图，然后县级根据招生要求来完成招生，以前都是完全为分值确定分数线即可。今年是第一年部分科目等级录取，我并不参与其中工作，之所以接触是平时略微懂一点数据库，他们怕录取有落漏，让我帮忙验证一下。我用笨方法试了(见2楼），觉得不够科学，所以上来求助，通过帖子互动，尤其版主sdta涨了不少见识。你所说的一是我不掌握二是保密原则（你懂得），故不好意思，技术上确实需向你们学习，文本上也没多少内容。请见谅

招生的政策文件，对考生是要广而告知，不属于保密内容

对本地区是如此，有了地名校名就等于网上发布，而这现在是不允许乱发布的了。呵呵

[此贴子已经被作者于2019-6-27 11:06编辑过]

呵呵，我们都是公网上发布的，是可以摆渡的

给你一个不用SELECT语句处理等级的程序。
CLEAR
CREATE TABLE 等级库 (a1 c(1),a2 c(1),a3 c(1),A4 C(1),A5 C(1),A6 C(1),A7 C(1),ZDJ C(7),PXDJ C(7))
FOR j1=1 TO 5
    FOR j2=1 TO 5
        FOR j3=1 TO 5
            FOR j4=1 TO 5
                FOR j5=1 TO 5
                    FOR j6=1 TO 5
                        FOR j7=1 TO 5
                            APPEND BLANK
                            REPLACE A1 WITH CHR(64+J1),A2 WITH CHR(64+J2),A3 WITH CHR(64+J3)
                            REPLACE A4 WITH CHR(64+J4),A5 WITH CHR(64+J5),A6 WITH CHR(64+J6)
                            REPLACE A7 WITH CHR(64+J7),ZDJ WITH A1+A2+A3+A4+A5+A6+A7
                            REPLACE PXDJ WITH DJPX(ZDJ)
                         NEXT
                     NEXT
                 NEXT
             NEXT
         NEXT
     NEXT
 NEXT
INDEX ON PXDJ TO LS UNIQ
COPY TO 等级库_唯一不重复
USE 等级库_唯一不重复
BROWSE
USE
RETURN
                           
FUNCTION djpx(cStr)
LOCAL px[LEN(cStr)]
FOR i = 1 TO LEN(cStr)
    px[i] = SUBSTR(cStr, i, 1)
ENDFOR
=ASORT(px)

cStr1 = ""
FOR i = 1 TO ALEN(px,1)
    cStr1 = cStr1 + px[i]
ENDFOR
RETURN cStr1