直接按照这个逻辑套代码不就行了
Dim r As Row = Tables("生产单").Current
Dim dr As DataRow
If r IsNot Nothing Then
dr = DataTables("生产单").AddNew
dr("产品型号")=r("套版型号")
dr("洞高")= r("洞高")
dr("洞宽")=0
dr("洞深")=r("洞深")
dr("数量")=r("数量")*2
dr("导入类型")="套板"
dr("来源")=r("原行号")
dr = DataTables("生产单").AddNew
dr("产品型号")=r("套版型号")
dr("洞高")= 0
dr("洞宽")=r("洞宽")
dr("洞深")=r("洞深")
dr("数量")=r("数量")*1
dr("导入类型")="套板"
dr("来源")=r("原行号")
dr = DataTables("生产单").AddNew
dr("产品型号")=r("立线型号")
dr("洞高")= r("洞高")
dr("洞宽")=0
dr("洞深")=0
dr("数量")=r("数量")*4
dr("导入类型")="套线"
dr("来源")=r("原行号")
……
End If
加好友 
发短信
Post By：2020/6/2 15:02:00 [显示全部帖子]
