r("已完工量") = val(_dt生产计划.Compute("Sum(目标单卷重)","配属合同号 = '" & r("合同号") & "'And 计划工序 = '生产入库' And 工序状态 = '已完成'"))