If e.DataCol.Name = "流水号" Then
Dim r As Row = Tables("核数表").Current
if r isnot nothing then
Dim dr As DataRow = DataTables("成品检验记录表").find("流水号 = '" & r("流水号") & "'")
if dr isnot nothing then
r("生产单号") = dr("生产单号")
r("物料代码") = dr("物料代码")
r("型号") = dr("型号")
r("规格") = dr("规格")
end if
r("一等品_只数") = DataTables("成品检验记录表").Compute("Sum(一等品只数)","流水号 = '" & r("流水号") & "'")
r("放行_只数") = DataTables("成品检验记录表").Compute("Sum(特采只数)","流水号 = '" & r("流水号") & "'")
r("不良品_只数") = DataTables("成品检验记录表").Compute("Sum(不良品只数)","流水号 = '" & r("流水号") & "'")
r("蒸镀不良_只数") = DataTables("成品检验记录表").Compute("Sum(蒸镀不良只数)","流水号 = '" & r("流水号") & "'")
r("分切不良_只数") = DataTables("成品检验记录表").Compute("Sum(分切不良只数)","流水号 = '" & r("流水号") & "'")
r("基膜不良_只数") = DataTables("成品检验记录表").Compute("Sum(基膜不良只数)","流水号 = '" & r("流水号") & "'")
r("设备不良_只数") = DataTables("成品检验记录表").Compute("Sum(设备不良只数)","流水号 = '" & r("流水号") & "'")
Dim dr1 As DataRow = DataTables("蒸镀工piao信息").find("流水号 = '" & r("流水号") & "'")
if dr1 isnot nothing then
r("基膜净重") = dr1("基膜净重")
end if
end if
End If
加好友 
发短信
Post By：2014/8/13 11:14:00 [只看该作者]
此主题相关图片如下：jdfw.gif