求助！关于分级汇总的，应该是这个叫法！谢了
项目 代码 金额山西 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
