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

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

参考，自行添加

http://www.foxtable.com/webhelp/scr/0326.htm

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

老师还是没有效果，请看

1、你说的无效果是指什么？怎样才算是正确的排序？

2、你代码怎么写的？写在哪里了？