Dim dr As DataRow = DataTables("Packinglist").AddNew
改成
Dim dr As Row = Tables("Shipment.Packinglist").AddNew