If r IsNot Nothing Then
Forms("SL_销售退货选择").show
If PublicJson IsNot Nothing Then
Dim ja As JArray = PublicJson
If ja.Count > 0 Then
Dim t As Table = Tables(eForm.Name & "_Table1")
For Each jt As JToken In ja
'只添加不重复行
If t.FindRow("Guid_销售订单='" & CStr(jt("Guid_销售订单")) & "'") = -1 Then
Dim nr As Row = t.AddNew()
'不一样的赋值
'nr(eForm.Name & "单号") = r("单号") '必须填写关联的主表ID
nr("编号") = r("编号") '必须填写关联的主表ID
nr("销售退货单明细ID")= Guid.NewGuid.ToString
'以下完全一样求优化思路协助
nr("产品编号")=CStr(jt("产品编号"))
nr("产品名称")=CStr(jt("产品名称"))
nr("产品类别")=CStr(jt("产品类别"))
nr("规格")=CStr(jt("规格"))
nr("数量")=CStr(jt("实际出库数量"))
nr("单价")=CStr(jt("单价"))
'nr("金额")=CStr(jt("金额"))
nr("单位")=CStr(jt("单位"))
nr("产品条码")=CStr(jt("产品条码"))
nr("备注")=CStr(jt("备注"))
nr("性质")=CStr(jt("性质"))
nr("颜色")=CStr(jt("颜色"))
nr("颜色型号")=CStr(jt("颜色型号"))
nr("分类")=CStr(jt("分类"))
nr("型号")=CStr(jt("型号"))
nr("材质")=CStr(jt("材质"))
nr("上级名称")=CStr(jt("上级名称"))
nr("钢板")=CStr(jt("钢板"))
nr("属性")=CStr(jt("属性"))
nr("结")=CStr(jt("结"))
nr("存")=CStr(jt("存"))
nr("状态")=CStr(jt("状态"))
nr("ID")=CStr(jt("ID"))
nr("拼音码")=CStr(jt("拼音码"))
nr("底材色")=CStr(jt("底材色"))
nr("来源")=CStr(jt("来源"))
nr("去向")=CStr(jt("去向"))
nr("安全库存_最低")=CStr(jt("安全库存_最低"))
nr("安全库存_合理")=CStr(jt("安全库存_合理"))
nr("安全库存_最高")=CStr(jt("安全库存_最高"))
nr("账面差数")=CStr(jt("账面差数"))
nr("安全库存")=CStr(jt("安全库存"))
nr("销售退货单ID")= CStr(jt("销售退货单ID"))
nr("销售出库单明细ID")= CStr(jt("销售出库单明细ID"))
nr("出库单结案")=CStr(jt("出库单结案"))
nr("销售订单结案")=CStr(jt("销售订单结案"))
nr("Guid_销售订单")=CStr(jt("Guid_销售订单"))
nr("Guid_销售生产单")=CStr(jt("Guid_销售生产单"))
nr("Guid_主计划")=CStr(jt("Guid_主计划"))
nr("Guid_机台计划")=CStr(jt("Guid_机台计划"))
End If
Next
End If
Tables(eform.name & "_Table1").Save
Tables(eform.name & "_Table1").AutoSizeCols()
End If
End If
加好友 
发短信
Post By：2025/3/7 18:39:00 [只看该作者]
