| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7667 人关注过本帖
标题:vfp中怎么将一个表中的记录插入到另一个表中满足条件的指定记录前面?
只看楼主 加入收藏
浔度1
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2015-10-9
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
请问版主:您用的是vfp9吗,这里提示语法错误
图片附件: 游客没有浏览图片的权限,请 登录注册
这句是要提取temp1表中的空行到temp3表中吗?执行后好像没有实现
2017-06-08 12:00
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
代码是用VFP9写的
TEMP3是空表

坚守VFP最后的阵地
2017-06-08 12:19
浔度1
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2015-10-9
收藏
得分:0 
回复 22楼 sdta
我的是vfp6,提示后面两段insert语句是不能执行的。
2017-06-08 12:22
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
那就换VFP9

坚守VFP最后的阵地
2017-06-08 12:23
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2017-06-08 12:24
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:5 
VFP6代码:
程序代码:
CLEAR
SET SAFETY OFF
SELECT * FROM TEMP1 WHERE .F. INTO TABLE TEMP3
SELECT RECNO() N FROM TEMP1 WHERE VAL(序号)=1 INTO TABLE TT
INSERT INTO TT VALUES (RECCOUNT("temp1")+1)
SELECT TT
GO TOP
N1=N
SCAN FOR RECNO()>1
    SELECT temp1
    COPY TO temp4 FOR VAL(编号)>=N1 AND VAL(编号)<TT.N
    SELECT temp3
    APPEND FROM temp2
    APPEND FROM temp4
    N1=TT.N
ENDSCAN
SELECT TEMP3
BROWSE
CLOSE DATABASES
ERASE TEMP3.DBF
ERASE TT.DBF

坚守VFP最后的阵地
2017-06-08 12:29
浔度1
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2015-10-9
收藏
得分:0 
回复 25楼 sdta
图片附件: 游客没有浏览图片的权限,请 登录注册
谢谢版主!已经很接近目的了。想要实现的效果是这样的…
2017-06-08 14:10
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
回复 27楼 浔度1
完全按照楼主的要求写的代码,怎么能说接近目标啊

坚守VFP最后的阵地
2017-06-08 14:34
浔度1
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2015-10-9
收藏
得分:0 
回复 28楼 sdta
非常感谢您细心帮助。我是想把temp2表中的第一条记录放到temp1表中第一个序号值为"1"的记录前面,temp2表中第二条记录放到temp1表中第二个序号值为"1"的记录前,依次类推…
2017-06-08 15:21
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:5 
程序代码:
CLEAR
CLOSE DATABASES
SET SAFETY OFF
USE TEMP2 IN 0
SELECT * FROM TEMP1 WHERE .F. INTO TABLE TEMP3
SELECT RECNO() N FROM TEMP1 WHERE VAL(序号)=1 INTO TABLE TT
INSERT INTO TT VALUES (RECCOUNT("temp1")+1)
SELECT TT
GO TOP
N1=N
M=0
SCAN FOR RECNO()>1
    M=M+1
    SELECT temp2
    COPY TO ARRAY atemp2 FOR RECNO()=M
    SELECT temp1
    COPY TO temp4 FOR VAL(编号)>=N1 AND VAL(编号)<TT.N
    SELECT temp3
    INSERT INTO temp3 FROM ARRAY atemp2    
    APPEND FROM temp4
    N1=TT.N
ENDSCAN
SELECT TEMP3
BROWSE
CLOSE DATABASES
ERASE TEMP3.DBF
ERASE TT.DBF

上面的代码是否符合楼主的要求

坚守VFP最后的阵地
2017-06-08 16:32
快速回复:vfp中怎么将一个表中的记录插入到另一个表中满足条件的指定记录前面?
数据加载中...
 
   



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

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