代码在什么事件？要实现什么功能？
If e.Col.Name ="BoxNo" OrElse If e.Col.name = "Customer_PartNo"
If e.Table.compute("count(Customer_PartNo)","Customer_PartNo='" & e.Row("Customer_PartNo") & "' and BoxNo='" & e.Row("BoxNo") & "'")> 1 Then
msgbox("该物料不是单独包装的!!!")
e.Cancel =True
Else
Dim r As Row = Tables("PackingInfo").AddNew
r("CustomerPN") = e.Row("Customer_PartNo")
r("GSSPartNo") = e.Row("GSSPartNo")
r("Packing_Length") = e.Row("Box_Length")
r("Packing_Width") = e.Row("Box_Width")
r("Packing_Height") = e.Row("Box_Height")
r("Packing_GrossWeight") = e.Row("Gross_Weight")
r("Packing_Qty") = e.Row("Qty_perBox")
Forms("窗口2").open
End If
End If
加好友 
发短信
Post By：2020/1/19 14:05:00 [只看该作者]
