| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 549 人关注过本帖
标题:vfp9.0中运行 为何要现表
只看楼主 加入收藏
b土木丁口
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:264
专家分:189
注 册:2013-9-12
结帖率:97.5%
收藏
已结贴  问题点数:80 回复次数:4 
vfp9.0中运行 为何要现表
SET EXCLUSIVE ON
SET SAFETY OFF
close  all
&&一、第一列
use e:\xyz  
dele all
pack
append from h:\2013\xyz2
*求概桥率
do h:\2013\2012\12001\12001
*排序
sele * from e:\6 into cursor tmp888 order by 概桥率1 desc
close  all
use e:\xyz
i=1
do while .not. eof()
repl 概桥排名1 with i
skip
i=i+1
enddo
close  all

&&二、加第二列
close  all
use e:\xyz
INSERT INTO e:\xyz SELECT  * FROM e:\xyz union all SELECT * FROM e:\xyz
UPDATE e:\xyz SET 第二列=1 WHERE BETWEEN(RECNO(),1,3)
UPDATE e:\xyz SET 第二列=2 WHERE BETWEEN(RECNO(),4,6)
UPDATE e:\xyz SET 第二列=3 WHERE BETWEEN(RECNO(),7,9)

*加序号
use e:\xyz
i=1
do while .not. eof()
repl 序号 with i
skip
i=i+1
enddo
*求概桥率
do h:\2013\2012\12001\12001
close  all
*排序
use e:\xyz
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:\xyz
dele all
pack
append from d:\vfp98\5
drop table d:\vfp98\5
**以序号升序排序
use e:\xyz
sele * from e:\xyz into dbf tmp1 order by 序号 asc
close data
use e:\xyz
zap
appe from tmp1
dele file tmp1.dbf


&&三、加第三列
RELEASE myarrar
close  all
use e:\xyz
INSERT INTO e:\xyz SELECT  * FROM e:\xyz union all SELECT * FROM e:\xyz
UPDATE e:\xyz SET 第三列=1 WHERE BETWEEN(RECNO(),1,9)
UPDATE e:\xyz SET 第三列=2 WHERE BETWEEN(RECNO(),10,18)
UPDATE e:\xyz SET 第三列=3 WHERE BETWEEN(RECNO(),19,27)

*加序号
use e:\xyz
i=1
do while .not. eof()
repl 序号 with i
skip
i=i+1
enddo
*求概桥率
do h:\2013\2012\12001\12001
close  all
*排序
use e:\xyz
sort to d:\vfp98\5 on 概桥率3/d
close  all
*加”概桥排名3”序号
use d:\vfp98\5
i=1
do while .not. eof()
repl 概桥排名3 with i
skip
i=i+1
enddo
use e:\xyz
dele all
pack
append from d:\vfp98\5
drop table d:\vfp98\5
**以序号升序排序
use e:\xyz
sele * from e:\xyz order by 序号 asc
*对 e:\xyz 排序结果放在临时表 tmp1
sele * from e:\xyz into dbf tmp1 order by 序号 asc
close data
use e:\xyz
*清空e:\ xyz
zap
*把排序结果放在临时表 tmp1中的内容放回
appe from tmp1
*删除临时表 tmp1
dele file tmp1.dbf


&&四、加第四列
RELEASE myarrar
close  all
use e:\xyz
INSERT INTO e:\xyz SELECT  * FROM e:\xyz union all SELECT * FROM e:\xyz
UPDATE e:\xyz SET 第四列=1 WHERE BETWEEN(RECNO(),1,27)
UPDATE e:\xyz SET 第四列=2 WHERE BETWEEN(RECNO(),28,54)
UPDATE e:\xyz SET 第四列=3 WHERE BETWEEN(RECNO(),55,81)
*加序号
use e:\xyz
i=1
do while .not. eof()
repl 序号 with i
skip
i=i+1
enddo
*求概桥率
do h:\2013\2012\12001\12001
close  all
*排序
use e:\xyz
sort to d:\vfp98\5 on 概桥率4/d
close  all
*加”概桥排名4”序号
use d:\vfp98\5
i=1
do while .not. eof()
repl 概桥排名4 with i
skip
i=i+1
enddo
use e:\xyz
dele all
pack
append from d:\vfp98\5
drop table d:\vfp98\5
**以序号升序排序
use e:\xyz
sele * from e:\xyz order by 序号 asc
*对 e:\xyz 排序结果放在临时表 tmp1
sele * from e:\xyz into dbf tmp1 order by 序号 asc
close data
use e:\xyz
*清空e:\ xyz  
zap
*把排序结果放在临时表 tmp1中的内容放回
appe from tmp1
*删除临时表 tmp1
dele file tmp1.dbf


以上运行中为何要现临时表
谢谢
搜索更多相关主题的帖子: cursor close 
2013-11-28 18:50
b土木丁口
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:264
专家分:189
注 册:2013-9-12
收藏
得分:0 
能不现临时表嘛
2013-11-28 18:50
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
可以删除红色的这些句子(没用的)


SET EXCLUSIVE ON
SET SAFETY OFF
close  all
&&一、第一列
use e:\xyz  
dele all
pack
append from h:\2013\xyz2
*求概桥率
do h:\2013\2012\12001\12001
*排序
*sele * from e:\6 into cursor tmp888 order by 概桥率1 desc
close  all
use e:\xyz
i=1
do while .not. eof()
repl 概桥排名1 with i
skip
i=i+1
enddo
close  all

&&二、加第二列
close  all
use e:\xyz
INSERT INTO e:\xyz SELECT  * FROM e:\xyz union all SELECT * FROM e:\xyz
UPDATE e:\xyz SET 第二列=1 WHERE BETWEEN(RECNO(),1,3)
UPDATE e:\xyz SET 第二列=2 WHERE BETWEEN(RECNO(),4,6)
UPDATE e:\xyz SET 第二列=3 WHERE BETWEEN(RECNO(),7,9)

*加序号
use e:\xyz
i=1
do while .not. eof()
repl 序号 with i
skip
i=i+1
enddo
*求概桥率
do h:\2013\2012\12001\12001
close  all
*排序
use e:\xyz
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:\xyz
dele all
pack
append from d:\vfp98\5
drop table d:\vfp98\5
**以序号升序排序
use e:\xyz
sele * from e:\xyz into dbf tmp1 order by 序号 asc
close data
use e:\xyz
zap
appe from tmp1
dele file tmp1.dbf


&&三、加第三列
RELEASE myarrar
close  all
use e:\xyz
INSERT INTO e:\xyz SELECT  * FROM e:\xyz union all SELECT * FROM e:\xyz
UPDATE e:\xyz SET 第三列=1 WHERE BETWEEN(RECNO(),1,9)
UPDATE e:\xyz SET 第三列=2 WHERE BETWEEN(RECNO(),10,18)
UPDATE e:\xyz SET 第三列=3 WHERE BETWEEN(RECNO(),19,27)

*加序号
use e:\xyz
i=1
do while .not. eof()
repl 序号 with i
skip
i=i+1
enddo
*求概桥率
do h:\2013\2012\12001\12001
close  all
*排序
use e:\xyz
sort to d:\vfp98\5 on 概桥率3/d
close  all
*加”概桥排名3”序号
use d:\vfp98\5
i=1
do while .not. eof()
repl 概桥排名3 with i
skip
i=i+1
enddo
use e:\xyz
dele all
pack
append from d:\vfp98\5
drop table d:\vfp98\5
**以序号升序排序
use e:\xyz
*sele * from e:\xyz order by 序号 asc
*对 e:\xyz 排序结果放在临时表 tmp1
sele * from e:\xyz into dbf tmp1 order by 序号 asc
close data
use e:\xyz
*清空e:\ xyz
zap
*把排序结果放在临时表 tmp1中的内容放回
appe from tmp1
*删除临时表 tmp1
dele file tmp1.dbf


&&四、加第四列
RELEASE myarrar
close  all
use e:\xyz
INSERT INTO e:\xyz SELECT  * FROM e:\xyz union all SELECT * FROM e:\xyz
UPDATE e:\xyz SET 第四列=1 WHERE BETWEEN(RECNO(),1,27)
UPDATE e:\xyz SET 第四列=2 WHERE BETWEEN(RECNO(),28,54)
UPDATE e:\xyz SET 第四列=3 WHERE BETWEEN(RECNO(),55,81)
*加序号
use e:\xyz
i=1
do while .not. eof()
repl 序号 with i
skip
i=i+1
enddo
*求概桥率
do h:\2013\2012\12001\12001
close  all
*排序
use e:\xyz
sort to d:\vfp98\5 on 概桥率4/d
close  all
*加”概桥排名4”序号
use d:\vfp98\5
i=1
do while .not. eof()
repl 概桥排名4 with i
skip
i=i+1
enddo
use e:\xyz
dele all
pack
append from d:\vfp98\5
drop table d:\vfp98\5
**以序号升序排序
use e:\xyz
*sele * from e:\xyz order by 序号 asc
*对 e:\xyz 排序结果放在临时表 tmp1
sele * from e:\xyz into dbf tmp1 order by 序号 asc
close data
use e:\xyz
*清空e:\ xyz  
zap
*把排序结果放在临时表 tmp1中的内容放回
appe from tmp1
*删除临时表 tmp1
dele file tmp1.dbf

[ 本帖最后由 bccn0906 于 2013-11-28 19:26 编辑 ]
2013-11-28 18:57
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:80 
用grid表现表嘛
2013-11-28 19:45
b土木丁口
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:264
专家分:189
注 册:2013-9-12
收藏
得分:0 
回复 4楼 tlliqi
能具体点吗
谢谢
2013-11-29 09:28
快速回复:vfp9.0中运行 为何要现表
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015466 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved