有一个有250多列（即有205多个字段名）的“样本表.DBF”（里面可能会有很多行内容），按每列空格数量从多到少（即没有出现数字1）把字段名重新排序，把所有列所有内容也跟着复制过去重新生成另一个名为“排序表.DBF”。         样本表第1、第2列照样复制过去在“排序”表的第1、第2列，样本表倒数第1、第2列照样复制过去在“排序”表的倒数第1、第2列。  样本表的第1列为数值型，第2列为字符型，倒数第1列为数值型，倒数第2列为字符型，其余的每列字段均为数值型。


样本表图解说明如下：


生成的“排序”表部分截图如下：

如何编程实现？版主们不要开骂啊，我真的很怕。我是真的解决不了才放到论坛求助的。

样本表有多少行，重新生成的排序表也跟着有多少行。排序表每列里的1的位置跟样本表的该列的1的位置相同。

是这样吗：
可以编程实现，用VBA操控Excel实现，不过要化点功夫。

还是看不明白楼主的意图，文字描述很不严谨，比如：“按每列空格数量从多到少”的描述就有问题。“每列”是否包含前 2 列和最后 2 列？中间列都是数值型数据怎么又按“空格”数量多少？
从生成的结果图中看，“号13568”列与“号13560”列都只含有1个“1”，为何“号13568”排在“号13560”的前面？只要明白了楼主的排序依据，处理起来应该不难。

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 样本表

[ 本帖最后由 sdta 于 2014-3-12 13:27 编辑 ]

回复4楼：4楼的结果完全正确，但也有不足：没有出现1的空格应该继续保持空格，不应该变成0，而且必须是在VFP软件中编程才对啊。

回复5楼：（1）“每列”是否包含前 2 列和最后 2 列？       回答：“每列”，不包含前 2 列和最后 2 列；
         （2）中间列都是数值型数据怎么又按“空格”数量多少？   回答：中间列都是数值型数据，每列空格数量从多到少排序（即没有出现数字1），也即是按出现1的次数从少到多把字段名排序。

回复6楼：编程执行到第2行时显示：“命令中含有不能识别的短语或关键字”，我不懂解决啊。

6楼代码是VFP9版本
SELECT * FROM 样本表 INTO CURSOR TEMP READWRITE
可改为VFP6代码：
SELECT * FROM 样本表 INTO TABLE TEMP
在6楼代码的最后一行，加下面代码
USE IN TEMP
ERASE TEMP.DBF && 删除TEMP.DBF，是不想在文件夹中增加无用的数据表

执行编程后，它只临时显示一个“查询”表，关闭后，“查询”表也跟着消失了。要怎样才能把“查询”表转化为结果表，可随时打开观看？

运行这段代码就行了
SELECT 期数,种类,&LCSTR,类别,期号 FROM 样本表


改为：
SELECT 期数,种类,&LCSTR,类别,期号 FROM 样本表 INTO TABLE CXB