If e.DataCol.Name = "流水号" Then
    Dim r As Row = Tables("核数表").Current
    Dim dr As DataRow = DataTables("成品检验记录表").find("流水号 = \'" & r("流水号") & "\'")
    Dim dr1 As DataRow = DataTables("蒸镀工票信息").find("流水号 = \'" & r("流水号") & "\'")
    r("生产单号") = dr("生产单号")
    r("物料代码") = dr("物料代码")
    r("型号") = dr("型号")
    r("规格") = dr("规格")
    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("基膜净重") = dr1("基膜净重")
End If

Select Case e.DataCol.Name
    Case "卷芯单重","一等品_毛重","一等品_只数","不良品_毛重","不良品_只数"
        Dim dr2 As DataRow = e.DataRow
        dr2("一等品_净重") = dr2("一等品_毛重") - dr2("卷芯单重") * dr2("一等品_只数")
        dr2("不良品_净重") = dr2("不良品_毛重") - dr2("卷芯单重") * dr2("不良品_只数")
End Select

Select Case e.DataCol.name
    Case "不良品_只数","不良品_净重","蒸镀不良_只数","分切不良_只数","设备不良_只数","基膜不良_只数","基膜净重"
        Dim dr As DataRow = e.DataRow
        dr("蒸镀不良_净重") = dr("不良品_净重")/dr("不良品_只数") * dr("蒸镀不良_只数")
        dr("分切不良_净重") = dr("不良品_净重")/dr("不良品_只数") * dr("分切不良_只数")
        dr("基膜不良_净重") = dr("不良品_净重")/dr("不良品_只数") * dr("基膜不良_只数")
        dr("设备不良_净重") = dr("不良品_净重")/dr("不良品_只数") * dr("设备不良_只数")
        dr("基膜不良_占比") = dr("基膜不良_净重")/dr("基膜净重")
        dr("设备不良_占比") = dr("设备不良_净重")/dr("基膜净重")
End Select

Select Case e.DataCol.Name
    Case "卷芯种类","卷芯宽度"
        Dim dr1 As DataRow = e.DataRow
        Dim pr As DataRow
        If dr1.IsNull("卷芯种类") OrElse dr1.IsNull("卷芯宽度")  Then
            dr1("卷芯单重") = Nothing
        Else
            Dim filter As String
            filter = "卷芯种类 = \'" & e.DataRow("卷芯种类") & "\' And 卷芯宽度 = \'" & e.DataRow("卷芯宽度") & "\'"
            pr = DataTables("卷芯标准表").Find(filter)
            If pr IsNot Nothing Then
                dr1("卷芯单重") = pr("卷芯单重")
            Else
                MessageBox.show("无此卷芯标准,请先录入卷芯标准!","提示")
            End If
        End If
End Select