老师，帮忙看下，以下根据刀具代码在刀具BOM清单中查询确实没有该记录，但是却不新增指定的内容，请帮忙看看，谢谢！
For Each dr30 As Row In Tables("日常换刀操作_刀具换刀").Rows
Dim nr1 As DataRow
nr1 = DataTables("刀具BOM清单").SQLFind("[刀具代码] = '"& dr30("刀具代码") & "'")
If nr1 Is Nothing Then
Dim nr30 = Tables("刀具BOM清单").AddNew()
nr30("成品编码") = dr30("成品编码")
nr30("成品描述") = dr30("成品描述")
nr30("材料编码") = dr30("材料编码")
nr30("材料描述") = dr30("材料描述")
nr30("用量") = dr30("用量")
nr30("线别") = dr30("线别")
nr30("库位") = "刀具库"
nr30("创建日期") = Date.Today
nr30("规格型号") = dr30("规格型号")
nr30("材料类型") = "刀具类"
nr30("加工工序") = dr30("加工工序")
nr30("加工内容") = dr30("加工内容")
nr30("使用设备") = dr30("使用设备")
nr30("刀柄型号") = dr30("刀柄型号")
nr30("刀具类型") = dr30("刀具类型")
nr30("刀具代码") = dr30("刀具代码")
nr30("使用状态") = "使用中"
nr30("创建人员") = _UserName
nr30("配刀类型") = dr30("配刀类型")
nr30("层级关系") = dr30("层级关系")
nr30("使用频次") = dr30("使用频次")
nr30("上传类型") = "刀具清单"
nr30("替代") = dr30("替代")
End If
Next
DataTables("刀具BOM清单").load
DataTables("刀具BOM清单").Save()
加好友 
发短信
Post By：2022/10/6 19:50:00 [显示全部帖子]
