版主：拜读您的在17楼程序，俺在想，能否在以下那段代码中：
for j=iif(i=year(ldDate1),month(ldDate1),1) to iif(i=year(ldDate2),month(ldDate2),12)
    select tmp2
    lnFieldValue=evaluate(field(j+2))
    select tmp1
    lcFieldName='ms'+str(i,4)+padl(j,2,'0')
    replace (lcFieldName) with lnFieldValue
  endfor
加一个循环结构的语句，把每一次循环得出的lnFieldValue统计下来（total），到最后为tmp1加一个字段（grandtotal），然后把total放进去，那就不用再运行在8楼的程序求得结果再进行表间转移总数了。我刚尝试加入循环语句但不成功，再恭请版主指导，谢谢。

感谢版主热情的帮助和指导。
运行最新程序时，在 &lcSQL 的地方有些问题，请指导，谢谢。

万分感谢版主，敬礼！

对版主Tiger5392先生再次深表谢意，敬礼！