主题：[求助]

老师，可不可以帮忙在以下代码中增加一个执行这个代码前的确认功能。

 

如果当前记录条的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

老师，这个问题解决了，谢谢。 增加记录后，这个排序老是不能自动排，已经设定降序了，还是不行。要怎样设置让它才能一直有效？ 谢谢。

附上图。
此主题相关图片如下：捕获.png

老师还是没有效果，请看

此主题相关图片如下：捕获.png