非常感谢指导！ 单条记录可以了
但是窗口表内记录均需要这样生成咋处理呢 麻烦再给予一下指导 谢谢
Dim r As Row = Tables("销售订单").Current
Dim dr As DataRow
If r IsNot Nothing Then
dr = DataTables("销售订单").AddNew
dr("单号")=r("单号")
dr("产品型号")=r("套板型号")
dr("洞高")= r("洞高")
dr("洞宽")=0
dr("洞深")=r("洞深")
dr("数量")=r("数量")*2
dr("导入类型")="套板"
dr("来源")=r("行号")
dr("行号")=DataTables("销售订单").Compute("Max(行号)") + 1
dr = DataTables("销售订单").AddNew
dr("单号")=r("单号")
dr("产品型号")=r("套板型号")
dr("洞高")= 0
dr("洞宽")=r("洞宽")
dr("洞深")=r("洞深")
dr("数量")=r("数量")*1
dr("导入类型")="套板"
dr("来源")=r("行号")
dr("行号")= DataTables("销售订单").Compute("Max(行号)") + 1
dr = DataTables("销售订单").AddNew
dr("单号")=r("单号")
dr("产品型号")=r("立线型号")
dr("洞高")= r("洞高")
dr("洞宽")=0
dr("洞深")=0
dr("数量")=r("数量")*4
dr("导入类型")="套线"
dr("来源")=r("行号")
dr("行号")= DataTables("销售订单").Compute("Max(行号)") + 1
dr = DataTables("销售订单").AddNew
dr("单号")=r("单号")
dr("产品型号")=r("立线型号")
dr("洞高")= 0
dr("洞宽")=r("洞宽")
dr("洞深")=0
dr("数量")=r("数量")*4
dr("导入类型")="套线"
dr("来源")=r("行号")
dr("行号")= DataTables("销售订单").Compute("Max(行号)") + 1
'Tables("销售订单").Save
End If
[此贴子已经被作者于2020/6/2 18:10:21编辑过]
加好友 
发短信
Post By：2020/6/2 14:50:00 [显示全部帖子]
此主题相关图片如下：表数据拆分.png
