真奇怪，应用6楼的编程，有时排序准确，有时不准确，这是怎么回事？

不可能
是否修改了什么地方

又是一個數據結構沒做好的例子，實現了也沒意義，這種實現方法是不值得學習的。

回复22楼：是真的啊，如果在样本表末尾再增加一行，并随意在某些列的最后一行增加1，再编程执行排序，得出的排序结果，有时不准确啊。

回复22楼：是真的啊，在样本表末尾再增加一空白行（用 appe blan 命令），并随意在某些列的最后一行添加1，再执行编程排序，得出的排序结果，就不准确啊

在样本表末尾增加一空白行（用 appe blan 命令），随意在某些列的最后一行添加1（增加一行空白行之后，最好在该列全是空白的那列最一行添加1），再执行编程排序，得出的排序结果，就不准确啊。我是用6楼您原来的编程并加以完善，没有任何修改：
CREATE CURSOR T (FIELD_NAME C(10),NUM N(4)) && 过渡表
SELECT * FROM 样本表 INTO CURSOR TEMP READWRITE
*--- 在数据表最后插入一条记录
INSERT INTO TEMP ((FIELD(2))) VALUES (PADC("小计",FSIZE(FIELD(2)),"-"))

FOR I=3 TO FCOUNT()-2
    IF TYPE(FIELD(I))="N"
       COUNT TO HJ FOR EMPTY(EVALUATE(FIELD(I))) AND RECNO()<RECCOUNT()
       *--- 数值型字段计数，并将结果添加到最后一条记录
       REPLACE RECORD RECCOUNT() (FIELD(I)) WITH HJ IN TEMP
       INSERT INTO T VALUES ((FIELD(I,[TEMP])),HJ)
    ENDIF
ENDFOR
SELECT * FROM T ORDER BY 2 DESC INTO CURSOR TEMP1
LCSTR=[]
SCAN
   LCSTR=LCSTR+ALLTRIM(FIELD_NAME)+IIF(RECNO()<RECCOUNT(),[,],[])
ENDSCAN
SELECT 期数,种类,&LCSTR,类别,期号 FROM 样本表 INTO TABLE CXB
USE IN TEMP
ERASE TEMP.DBF && 删除TEMP.DBF

最好在该列全是空白的那列最一行添加1
最好在该列全是空白的那列最后一行添加1

先执行编程，排序结果正确，接着，增加一行空白行，在空格数最多的某一列的最后一行添加1，再执行编程，排序结果就不正确了。真奇怪。

自己慢慢研究吧，一句两句也说不明白。
代码是没问题的。

唉，我又说错话了，真该自打嘴巴，在26楼时，我居然说：“我是用6楼您原来的编程并加以完善”，哪里有加以完善，完全是6楼的创作啊，我又得罪人了。真不懂说话。