Dim dr As DataRow = e.DataRow Dim Sum As Double = Tables("表B").Compute("Sum(工序天数)","[图号] = '" & dr("图号") & "' And [名称] = '" & dr("名称") & "' And [订单号] = '" & dr("订单号") & "' And [工序号] <= " & dr("工序号")) Dim pr As DataRow = dr.GetParentrow("表A") dr("工序完工日期") = pr("到料日期").AddDays(Sum * (pr("计划周期")/pr("合计天数")))