use e:\6
dele all
pack
append from h:\7
close  all
&&第一列
use e:\6
dele all
pack
append from h:\7
*排序

sele * from e:\6 order by 概桥率1 desc
close  all
use e:\6
i=1
do while .not. eof()
repl 概桥排名1 with i
skip
i=i+1
enddo
close  all

&&二、加第二列

close  all

use e:\6
COPY TO ARRAY myarrar
APPEND FROM ARRAY myarrar
APPEND FROM ARRAY myarrar


UPDATE e:\6 SET 第二列=1 WHERE BETWEEN(RECNO(),1,3)
UPDATE e:\6 SET 第二列=2 WHERE BETWEEN(RECNO(),4,6)
UPDATE e:\6 SET 第二列=3 WHERE BETWEEN(RECNO(),7,9)


*加序号
 
use e:\6
i=1
do while .not. eof()
repl 序号 with i
skip
i=i+1
enddo
close  all
*排序
use e:\6
sort to d:\vfp98\5 on 概桥率2/d
close  all
*加概桥排名2序号
use d:\vfp98\5
i=1
do while .not. eof()
repl 概桥排名2 with i
skip
i=i+1
enddo
use e:\6
dele all
pack
append from d:\vfp98\5
drop table d:\vfp98\5
**以序号升序排序
use e:\6
sele * from e:\6 order by 序号 asc

&&三、加第三列

close  all

use e:\6
COPY TO ARRAY myarrar
APPEND FROM ARRAY myarrar
APPEND FROM ARRAY myarrar


UPDATE e:\6 SET 第三列=1 WHERE BETWEEN(RECNO(),1,9)
UPDATE e:\6 SET 第三列=2 WHERE BETWEEN(RECNO(),10,18)
UPDATE e:\6 SET 第三列=3 WHERE BETWEEN(RECNO(),19,27)
*加序号
 
use e:\6
i=1
do while .not. eof()
repl 序号 with i
skip
i=i+1
enddo
close  all
*排序
use e:\6
sort to d:\vfp98\5 on 概桥率3/d
close  all
*加概桥排名2序号
use d:\vfp98\5
i=1
do while .not. eof()
repl 概桥排名3 with i
skip
i=i+1
enddo
use e:\6
dele all
pack
append from d:\vfp98\5
drop table d:\vfp98\5
**以序号升序排序
use e:\6
sele * from e:\6 order by 序号 asc



本来想是27行
为何成了21行
求指教

一堆很搞笑的代码！
--------------------------------
以下两个 Append From h:\7 有何用意？

Use e:\6
Dele All
Pack
Append From h:\7
Close  All

&&第一列
Use e:\6
Dele All
Pack
Append From h:\7
----------------------------------------------------
这样排序有何用?
*排序

Sele * From e:\6 Order By 概桥率1 Desc
Close  All
Use e:\6
i=1
Do While .Not. Eof()
    Repl 概桥排名1 With i
    Skip
    i=i+1
Enddo
Close  All
-----------------------------------
h:\7 里面装的是什么？有多少条记录？
你可以把 e:\6 ,h:\7 上传给人看看 吗

Append From h:\7
是追加 h:\7 到e:\6

1、e:\6 ,h:\7---------最好用字母+数字组合取名文件
2、要自己能知道每一语句的意思 便于掌控程序

这个谁都知道 不用说的

e:\6是空表，只有格式没有内容
h:\7，见下
序号    第一列    第二列    第三列    概桥率1    概桥率2    概桥率3    概桥排名1    概桥排名2    概桥排名3
          1                                
          2                                
          3                                

谢谢

请指教，谢谢！

本来应该是27行，为何成了21行

use e:\6
dele all
pack
append from h:\7
close  all
&&第一列
use e:\6
dele all
pack
append from h:\7
*排序

蓝与红重复 只留下一次