版主，以下是拆分记录的代码，当数量能被整除，没有问题。可是当拆分是不能被整除时，会退出Foxtable,如何修改可以拆分时有小数位

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

版主，请查看，你拆这个3，就会有问题，拆整数倍就没有问题的。

1、贴出开发者密码；

2、退出，说明死循环 http://www.foxtable.com/webhelp/scr/1522.htm

3、你也可以加上systemready不触发datacolchanged http://www.foxtable.com/webhelp/scr/2218.htm