主题：帮忙看下这段代码

For Each r As Row In Tables("导入待入库明细_table2").GetCheckedRows
    Dim dr As Row = Tables("物料入库单主表.物料入库单明细").AddNew
    r("品名") = dr("品名")
    r("待入库通知单号") = dr("待入库单号")
Next
e.Form.Close

执行完这段代码后，r("品名")和r("待入库通知单号")消失。。在（物料入库单主表.物料入库单明细）新增的行里也看不见“品名”和单号

参照paul同学的视频写的..

这个。。到底是怎么回事？