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

何为空行？ 是有判断条件的吧？ 例如某列为空。

既如此，那么可以在代码最后面加一行：

Tables("成品库存明细").Delete("某列 Is null ")

或者修改一楼的代码：

For Each dr As Row In Tables("成品入库_订单明细").GetCheckedRows

    if dr.Isnull("某列")  then

        Contrinue for

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