|
Dim r As Row = Tables("表A").current
If r("Import") = True Then
Dim Result As DialogResult
If Tables("shipment").current("shippingNo") = Nothing Then
Result = Messagebox.Show("新增 !!!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("shipment").addnew
End If
Else
If r("Import") = True Then
Dim nma() As String = {"PO","Customer","Customer_POno","PO_Pos","GSSPartNo","Customer_PartNo","Qty_PerBox","delivery_address","ETD"} '
Dim nmb() As String ={"PO","Endcustomer","CustomerPO","Pos","GSSPart","PartNo","OpenQty","DeliveryAddress","ETD"}
Dim dr As Row = Tables("Shipment.Packinglist").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nma(i)) = r(nmb(i))
Next
End If
End If
End If
|
加好友 
发短信
Post By：2018/11/30 9:19:00 [显示全部帖子]
