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

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