主题：这行代码，为什么总是多一个空行

For Each dr As Row In Tables("成品入库_订单明细").GetCheckedRows
    If dr("未入数量") > 0 Then

        Dim dr2 As Row = Tables("成品库存明细").AddNew
        dr2("ID") = dr("ID")
        dr2("入库数量") = dr("未入数量")
        If dr.IsNull("本次入库数量") Then
            dr("本次入库数量") = dr("未入数量")
        Else
            dr("本次入库数量") = Nothing
        End If

    End If
Next