有一个表结构如下
编号    联系户户主
        张三
        张三
        李四
        李四
        李四

通过程序后变成如下样子，也就是给编号字段填上数字，联系户户主同名的编号相同，名字不同的递增
编号    联系户户主
1       张三
1       张三
2       李四
2       李四
2       李四
如何编写程序，请详细编写好吧高手

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

谢谢大哥了，非常好用
我还想解决另一个问题，我想删除联系户户主相同时的多余记录，怎么写程序
效果是：
有一个表结构如下
编号    联系户户主
        张三
        张三
        李四
        李四
        李四

通过程序后变成如下样子
编号    联系户户主
1       张三
2       李四
高手能再给解决下吧

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 

sele dist 编号,联系户户主 from 表 into dbf 表2

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