主题：请教单据引用的问题

Dim rs As List(of Row) = Tables("订单").GetCheckedRows()
For Each r As Row In rs
    Dim nr As DataRow = DataTables("收货").find("编号 = '" & r("编号") & "'")
    If nr Is Nothing Then
        nr = DataTables("收货").AddNew
        nr("编号") = r("编号")
    End If
    nr("货品信息") = r("货品信息")
    nr("数量信息") = r("数量信息")
Next

老师，看了您的指导还是没太明白。

我的两个窗口如下图。

在收货单的窗口左下方有一个“选择订单”的按钮，点击出来后出现未执行完的订单，

然后如果有几笔货收到了，就在"选择订单"的窗口在前面行的复选框中选择上，然后点选择订单窗口右下方的“确定”按钮，选择行的内容就按需要的列复制到收货单录入窗口的行上来了，选择几行这边就增加过来几行。

我的收货单有自己的主健ID，那个订单选择窗口里的“单号，顺序号”等于收货单里的“引用单号，引用行号”（即订单明细双重主健，两个结合才是唯一记录）

另外老师这里DataTables("收货")还是用录入窗口的Tables("收货单_Table1")用哪个好？

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