If e.Col.Name = "制程编号" Then
Dim R As DataRow = DataTables("物料明细").SQLFind("[物料编号] = '"& Tables("制程").Current("制程编号") &"'")
If R Is Nothing Then
Dim dr As DataRow = DataTables("物料明细").AddNew
dr("物料编号") =Tables("制程").Current("制程编号")
dr("物料名称") =Tables("产品资料").Current("产品名称")& Tables("制程").Current("制程") &"半成品"
dr("物料类型") ="半成品"
dr("材质名称") = Tables("产品资料").Current("产品结构")
dr("物料规格") = Tables("产品资料").Current("产品规格")
dr("固含量") = Tables("产品资料").Current("单重")
dr("单位") = Tables("产品资料").Current("单位")
DataTables("物料明细").Save()
Else
Return
msgbox("半成品已存在")
End If
End If
老师，我这个代码在制程表产生，但一直不会增加，什么原因？
加好友 
发短信
Post By：2021/7/10 14:26:00 [显示全部帖子]
