老师,可不可以帮忙在以下代码中增加一个执行这个代码前的确认功能。
如果当前记录条的shippingno是空的,请填入shippingno后再执行以下代码?
如果当前记录条的shippingno有值的话,就提示是否 新增到 该shippingno中,是就执行,不是就放弃。麻烦了。
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","ETD"} ' 数据列 Pakcinglist
Dim nmb() As String = {"GSSAG_PO","Endcustomer","CustomerPO","Pos","GSSPart","PartNo","OpenQty","DeliveryAddress","ETD"} '数据列 orderlist
Dim dr As Row = Tables("Shipment.Packinglist").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nma(i)) = e.DataRow(nmb(i))
Next
End If