大致如下吧:local s分类总额合计, oldrec
select 子表
oldrec = recno()
sum all for 子表.KEY=主表.KEY 分类总额 to s分类总额合计
goto oldrec
select 主表
replace 分类总额合计 with s分类总额合计