版主， 以下代码执行后，那个光标就自动移动最后一笔了，可以让它保持不变？

Dim t As Table = Tables("shipment.packinglist")
Dim i As Integer = 2
If InputValue(i, "提示", "要拆几笔??? ") Then
    Dim r = t.Current
    Dim n = r("Qty_perBox") / i
    For j As Integer = 1 To i
        Dim nr = t.AddNew
        nr("ShippingNo") = r("ShippingNo")
        nr("Qty_perBox") = n
        nr("Box_length") = r("Box_length")
        nr("Box_Width") = r("Box_Width")
        nr("Box_height") = r("Box_height")
        nr("customer") = r("customer")
        nr("NameinEnglish") = r("NameinEnglish")
        nr("GSSAG_PO") = r("GSSAG_PO")
        nr("PO_Pos") = r("PO_Pos")
        nr("GSSPartNo") = r("GSSPartNo")
        nr("Customer_PONo") = r("Customer_PONo")
        nr("Customer_PartNo") = r("Customer_PartNo")
        nr("CustomerPartName") = r("CustomerPartName")
        nr("Unit") = r("Unit")
        nr("NetWeight_PC") = r("NetWeight_PC")
        nr("delivery_address") = r("delivery_address")
        nr("ETD") = r("ETD")
        nr("barcode") = r("barcode")
        nr("code") = r("code")

       \' nr("sysDate") = r("sysDate")
            
    Next
    r.delete
End If

Dim nr = t.AddNew

改成

Dim nr = t.datatable.AddNew