求助:编写一个dbf数据表程序
有一个表结构如下编号 联系户户主
张三
张三
李四
李四
李四
通过程序后变成如下样子,也就是给编号字段填上数字,联系户户主同名的编号相同,名字不同的递增
编号 联系户户主
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
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