请问一下老师，我要把左边窗体表中的ShippingNo同时复制到右边表中的Shippinno中，如何加到下面代码中。谢谢。

If e.DataCol.Name = "Import" AndAlso e.DataRow("Import") = True Then
    Dim nma() As String = {"GSSAG_PO","Customer","Customer_POno","PO_Pos","GSSPartNo","Customer_PartNo","Qty_PerBox","delivery_address"} \'  数据列 Pakcinglist
    Dim nmb() As String = {"GSSAG_PO","Endcustomer","CustomerPO","Pos","GSSPart","PartNo","OpenQty","DeliveryAddress"}           \'数据列 orderlist
    Dim dr As DataRow = DataTables("Packinglist").AddNew
    For i As Integer = 0 To nma.Length - 1
       dr(nma(i)) = e.DataRow(nmb(i))
    Next
End If

Dim dr As DataRow = DataTables("Packinglist").AddNew

改成

Dim dr As Row = Tables("Shipment.Packinglist").AddNew

非常实用，谢谢版主 有点甜