delfor(gridname) and selectfill("产品收发明细","产品编码","产品编码") and selectfill("产品收发明细","产品编码","产品编码",2) and selectfill("产品成本计算表","产品编码","产品编码",2)and DelReptRows("产品收发存汇总表(2)","产品编码") and RecalcGrid(gridname) and delfor(gridname,"产品编码","=","") and subtotal("产品名称","斯初数_数量,期初数_金额,入库数_数量,入库数_金额,发出数_数量,发出数_金额,结存_数量,结存_金额","2,2,2,2,2,2,2,2",2) and msgbox("计算完成!",0)