请看下图

此主题相关图片如下：bg.png

做了一个导入窗口， 导入按钮的代码如下：

If Tables("导入窗口1_报关明细单").Rows.Count > 0 Then
   
    For Each r1 As Row In Tables("导入窗口1_报关明细单").GetCheckedRows
        Dim  r2 As Row = Tables("报关单.开票主表.开票明细表").AddNew
        r2("海关编号") = r1("海关编号")
        r2("商品ID") = r1("商品ID")
        r2("未开数量") = r1("未开数量")
        r2("开票数量") = r1("未开数量")
    Next
    e.Form.close
Else
    MessageBox.Show("无未开项!")
End If

但导入后闪了一下， 内容不出现， 问题出在那里， 请老师解答！

老师，你看代码写的对吗