| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 452 人关注过本帖
标题:求助,先谢了!!
只看楼主 加入收藏
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
快速回复:求助,先谢了!!
数据加载中...
 
   



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

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