主题：[求助]请问这段代码有问题吗？

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