标题:求助,先谢了!!
只看楼主
qlg2006
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-5-21
 问题点数:0 回复次数:4 
求助,先谢了!!

如何把表B中的数据信息汇入到另一个表A中?
户主.dbf:(表A)
编 号 姓 名 住 址 金额
00001 张三 *镇*村 111.00
00002 李四 *镇*村 123.00
00003 王二 *镇*村 234.00
00004 李三 *镇*村 345.00
00005 张四 *镇*村 789.00

户主.dbf:(表B)
编 号 姓 名 住 址 金额
00001 李一 *镇*村 234.00
00002 张二 *镇*村 423.00
00003 王三 *镇*村 575.00
00004 李四 *镇*村 585.00
00005 何五 *镇*村 505.00

程序已编译运行,数据录入也已完成,现要将表B中编号为00001至00005的数据信息汇入表A中,依次在表A中以00006至00010编号,最困难的是两数据表中的编号相同,汇入时有冲突,请求高手赐教啊,心急,拜托了!!!!

2006-05-22 08:34
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
得分:0 
close all
use 表a
append from 表b
replace all 编号 with pbh(recno())

定义pbh函数
function pbh
paramaters bh
do case
case bh<=0
x=space(5)
case bh<10
x="0000"+str(bh,1)
case bh<100
x="000"+str(bh,2)
case bh<1000
x="00"+str(bh,3)
case bh<10000
x="0"+str(bh,4)
case bh<100000
x=str(bh,5)
other
x=space(5)
endcase
return x

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-22 09:04
qlg2006
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-5-21
得分:0 

感谢!!!能不能告诉我QQ号,我的是:76751566

2006-05-22 10:13
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
得分:0 
老兄,编号的自定义函数用这个最爽:
dh=recno()
bh=left('00000',5-len(alltrim(str(dh,5))))+alltrim(str(dh,5))
一句搞定

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2006-05-22 12:22
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
得分:0 
我也知道啊,还有呢
REPLACE ALL 编号 WITH REPLICATE("0",5-LEN(ALLTRIM(STR(RECNO())))+ALLTRIM(STR(RECNO()))

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-22 14:54



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-66146-1-1.html




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

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