专家坐堂-查询没有则新增Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

DataTables("刀具BOM清单").load

DataTables("刀具BOM清单").Save()