如下面两个表，一个是保存数据的表abc，另一个是代码表dmb
                  abc表
县    乡    村    姓名    性别    身份证号           备注
1     1     1     刘勇    男    452928197801120524   
1     1     2     张艳    女    452928197401120525   
1     1     1     王强    男    452928197501120524   
1     1     2     王猛    男    452928197901120524   
1     2     1     覃斌    男    452928197201120524   
1     2     2     张言    女    452928197301120527   
1     2     3     刘才    男    452928197403120524   
1     2     2     吴新    男    452928197201110524   
1     3     1     张美玉  女    452928198005120529   
1     3     2     陆重    男    452928197909110524   
1     3     3     范超    男    452928197406100524

         dmb表
县    乡    村    名称
1                龙劳县
1     1          龙毛乡
1     1     1    八代村
1     1     2    纳昔村
1     2          林龙乡
1     2     1    九弄村
1     2     2    凤龙村
1     2     3    八塘村
1     3          弄九乡
1     3     1    盘茶村
1     3     2    百福村
1     3     3    百利村
   
怎样通过dmb代码表把abc表转换为以下cde表：
                 cde表
县         乡        村       姓名    性别  身份证号         备注
龙劳县    龙毛乡    八代村    刘勇    男    452928197801120524   
龙劳县    龙毛乡    纳昔村    张艳    女    452928197401120525   
龙劳县    龙毛乡    八代村    王强    男    452928197501120524   
龙劳县    龙毛乡    纳昔村    王猛    男    452928197901120524   
龙劳县    林龙乡    九弄村    覃斌    男    452928197201120524   
龙劳县    林龙乡    凤龙村    张言    女    452928197301120527   
龙劳县    林龙乡    八塘村    刘才    男    452928197403120524   
龙劳县    林龙乡    凤龙村    吴新    男    452928197201110524   
龙劳县    弄九乡    盘茶村    张美玉  女    452928198005120529   
龙劳县    弄九乡    百福村    陆重    男    452928197909110524   
龙劳县    弄九乡    百利村    范超    男    452928197406100524

另外还有个问题，就是怎样通过dmb代码表,将cde表反转换为abc表   

update abc set 县=dmb.名称 from abc,dmb where abc.县=dmb.县
update abc set 乡=dmb.名称 from abc,dmb where abc.乡=dmb.乡
update abc set 村=dmb.名称 from abc,dmb where abc.村=dmb.村

请用以下代码试试：
sele 1
use dmb
index on allt(县) tag xian
index on allt(县)+allt(乡) tag xiang
index on allt(县)+allt(乡)+allt(村) tag cun
sele 2
use abc
sele abc
goto top
do while not eof()
     if seek(allt(县)+allt(乡)+allt(村),dmb","cun")
         repl 村 with dmb.名称
     endif
     if seek(allt(县)+allt(乡),dmb","xiang")
         repl 乡 with dmb.名称
     endif
     if seek(allt(县),dmb","xian")
         repl 县 with dmb.名称
     endif
     skip
enddo

回复yangbai老师：
还是不行，当执行到“if seek(allt(县)+allt(乡)+allt(村),dmb","cun")”这个语句时提示：程序错误 函数名缺少）。

楼主在dmb的左边再加多一个引号试

谢谢yangbai老师，第一个问题解决了，但第二个问题还不知道怎样做？即如下cde表和dmb表
                   cde表
县         乡        村       姓名    性别  身份证号         备注
龙劳县    龙毛乡    八代村    刘勇    男    452928197801120524   
龙劳县    龙毛乡    纳昔村    张艳    女    452928197401120525   
龙劳县    龙毛乡    八代村    王强    男    452928197501120524   
龙劳县    龙毛乡    纳昔村    王猛    男    452928197901120524   
龙劳县    林龙乡    九弄村    覃斌    男    452928197201120524   
龙劳县    林龙乡    凤龙村    张言    女    452928197301120527   
龙劳县    林龙乡    八塘村    刘才    男    452928197403120524   
龙劳县    林龙乡    凤龙村    吴新    男    452928197201110524   
龙劳县    弄九乡    盘茶村    张美玉  女    452928198005120529   
龙劳县    弄九乡    百福村    陆重    男    452928197909110524   
龙劳县    弄九乡    百利村    范超    男    452928197406100524

         dmb表
县    乡    村    名称
1                龙劳县
1     1          龙毛乡
1     1     1    八代村
1     1     2    纳昔村
1     2          林龙乡
1     2     1    九弄村
1     2     2    凤龙村
1     2     3    八塘村
1     3          弄九乡
1     3     1    盘茶村
1     3     2    百福村
1     3     3    百利村

怎样通过dmb代码表把cde表反转换为以下abc表：

                  abc表
县    乡    村    姓名    性别    身份证号           备注
1     1     1     刘勇    男    452928197801120524   
1     1     2     张艳    女    452928197401120525   
1     1     1     王强    男    452928197501120524   
1     1     2     王猛    男    452928197901120524   
1     2     1     覃斌    男    452928197201120524   
1     2     2     张言    女    452928197301120527   
1     2     3     刘才    男    452928197403120524   
1     2     2     吴新    男    452928197201110524   
1     3     1     张美玉  女    452928198005120529   
1     3     2     陆重    男    452928197909110524   
1     3     3     范超    男    452928197406100524

用以下代码试试：
sele 1
use dmb
index on allt(名称) to mainkey
sele 2
use cde
sele cde
goto top
do while not eof()
        if seek(allt(村),"dmb","mainkey")
        repl 县 with dmb.县,乡 with dmb.乡,村 with dmb.村
        endif
        skip
enddo

有什么方法设置*.prg程序的使用次数，意思是说我编写的这个程序只允许运行100次，超过100次后就不运行此程序，请老师给予指导，编写这段能控制这个程序使用次数的语句。请老师务必帮忙解决，谢谢。