| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 470 人关注过本帖, 1 人收藏
标题:求助:编写一个dbf数据表程序
只看楼主 加入收藏
pobabyzdm
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-12-14
结帖率:0
收藏(1)
已结贴  问题点数:20 回复次数:5 
求助:编写一个dbf数据表程序
有一个表结构如下
编号    联系户户主
        张三
        张三
        李四
        李四
        李四

通过程序后变成如下样子,也就是给编号字段填上数字,联系户户主同名的编号相同,名字不同的递增
编号    联系户户主
1       张三
1       张三
2       李四
2       李四
2       李四
如何编写程序,请详细编写好吧高手
搜索更多相关主题的帖子: 编写程序 数据表 如何 
2013-12-14 22:54
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:7 
程序代码:
CREATE CURSOR t (bh c(4),hz c(10))
INSERT INTO t VALUES ([],[张三])
INSERT INTO t VALUES ([],[张三])
INSERT INTO t VALUES ([],[李四])
INSERT INTO t VALUES ([],[李四])
INSERT INTO t VALUES ([],[李四])
lnI=0
lcstr=[]
SCAN
   IF alltrim(hz)==lcstr
      BH=lnI
   ELSE
      lnI=lnI+1
   ENDIF
   REPLACE BH WITH TRANSFORM(lnI)
   lcstr=alltrim(hz)
ENDSCAN
BROWSE

坚守VFP最后的阵地
2013-12-14 23:55
pobabyzdm
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-12-14
收藏
得分:0 
谢谢大哥了,非常好用
我还想解决另一个问题,我想删除联系户户主相同时的多余记录,怎么写程序
效果是:
有一个表结构如下
编号    联系户户主
        张三
        张三
        李四
        李四
        李四

通过程序后变成如下样子
编号    联系户户主
1       张三
2       李四
高手能再给解决下吧
2013-12-15 07:56
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
CREATE CURSOR t (bh c(4),hz c(10))
INSERT INTO t VALUES ([],[张三])
INSERT INTO t VALUES ([],[张三])
INSERT INTO t VALUES ([],[李四])
INSERT INTO t VALUES ([],[李四])
INSERT INTO t VALUES ([],[李四])
lnI=0
lcstr=[]
SCAN
   IF alltrim(hz)==lcstr
      BH=lnI
   ELSE
      lnI=lnI+1
   ENDIF
   REPLACE BH WITH TRANSFORM(lnI)
   lcstr=alltrim(hz)
ENDSCAN
SELECT distinct bh,hz FROM t INTO CURSOR t1
BROWSE 

坚守VFP最后的阵地
2013-12-15 08:45
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:7 
回复 3楼 pobabyzdm
sele dist 编号,联系户户主 from 表 into dbf 表2
2013-12-15 14:59
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:7 
SELECT distinct 联系户户主,000000 编号 FROM 你的表 INTO CURSOR t1 READWRITE ORDER BY 联系户户主
REPLACE ALL 编号 WITH RECNO() IN t1
UPDATE 你的表 SET 编号=b.编号 from t1 b WHERE ALLTRIM(你的表.联系户户主)==ALLTRIM(b.联系户户主)

*删除联系户户主相同时的多余记录
SELECT distinct 编号,联系户户主 FROM 你的表 INTO CURSOR t2
2013-12-16 09:33
快速回复:求助:编写一个dbf数据表程序
数据加载中...
 
   



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

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