项目                代码                              金额
山西                1                                 40.0000
太原                11                                 0.0000
长治                12                                40.0000
晋城                13                                 0.0000
晋中                14                                 0.0000
河北                2                                 20.0000
石家庄              21                                 0.0000
保定                22                                 0.0000
北京                3                                  20.0000
海淀区              31                                 0.0000
武乡                121                               10.0000
朝阳区              33                                 0.0000
长治县              122                               10.0000
长子县              123                               10.0000
郊区                124                               10.0000

这个表分三级  代码是一位数的是一级  两位数的是二级 三位数的是三级
然后根据三级的金额算出二级的金额 二级的金额算出一级的金额 用程序得出
我现在写的代码有很大的缺陷，现在找不吃问题在哪？请各位高手帮忙指教！
附：
Set Talk Off
Clear
Use In Select("xm")
Use xm
Store 0 To a,b
Index On 代码 To 代码
Go Bottom
Do While.Not.Bof()
Do case
    case Len(Trim(代码))=3
         a=a+xm.金额
    case Len(Trim(代码))=2
         b=b+xm.金额
        * If Like(代码,Left(代码,2))
         replace 金额 With a
        * endif
         Store 0 To a
    case Len(Trim(代码))=1
         *If  Left(代码,1)==xm.代码.and.len(Trim(代码)) =1
             replace 金额 With b
         *Else
              Messagebox(b)
         *endif  
         Store 0 To b           
    Endcase
*!*         If Left(代码,2) =xm.代码.and.len(Trim(代码)) =2
*!*                  
*!*               Else
*!*                  Messagebox(代码)
*!*         Endif
*!*         
*!*                 
*!*        
    Skip -1
Enddo
browse
Use
Set Talk On

忘了说一下 xm 是表名

根据表的原始数据，北京、河北的金额都应该是0.0000。若是这样的话，建议分两个阶段计算：第一阶段，计算三级地区前两位代码相同的金额汇总，并替换原表数据；第二阶段，计算二级地区前一位代码相同的金额汇总，并替换原表数据。

分成三个表，然后分步计算，需要什么数据就能算出什么数据了。