主题：代码出现错误。。望纠正

If    Tables("质检表").Current("已检")= True Then

            Dim dr1 As DataRow = DataTables("生产进度表").Find("生产编号='" & bh & "' and 待氧化工序='" & gx & "'")

            Dim MC As String = Tables("质检表").current("产品名称")

            

            If dr1 IsNot Nothing Then

                MC = MC & "-" & "DYH"

            Else

                MC = MC & "-" & GX

            End If

            Dim dr2 As DataRow = DataTables("半成品库存").find("产品名称='" & MC & "'")

            If dr2 Is Nothing Then

                Dim r4 As Row = Tables("半成品库存").AddNew(1)

                r4("产品名称")= MC

            End If

            Dim r10 As Row = Tables("质检表").Current

            Dim r20 As Row = Tables("半成品明细").AddNew(1)

            r20("生产编号")=r10("生产编号")

            r20("产品名称")= MC

            r20("入库_合格品")=r10("合格品")

            r20("入库_工序")=r10("工序顺序")

            r20("入库_部门")=r10("加工部门")

            r20("入库_日期")=r10("交货日期")

            r20("入库_不良品")=r10("不良品_收")

            r20("入库_报废品_质检后")=r10("报废品")

        Else

            MessageBox.Show("程序出错,请联系管理员")

            Return

        End If