以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  满足条件新增  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=169748)

--  作者：nuoyan89 --  发布时间：2021/6/28 21:29:00 --  满足条件新增 老师，我在做入库时希望做个识别，根据成品编码和配件库存表中的材料编码做对比，如果这个物料编码在配件库存表中没有，则新增，以下代码不做新增操作，也没有错误提示（注：入库表中会有多条记录，这个代码是定在控件中的）。请帮忙看看，谢谢！ Dim dr As DataRow dr = DataTables("配件库存表").SQLFind("[材料编码] = \'"& Tables("刀具入库申请_录入").current("成品编码") & "\'") If dr Is Nothing     dr = DataTables("配件库存表").addnew     dr("材料编码") = Tables("刀具入库申请_录入").current("成品编码")     dr("材料描述") = Tables("刀具入库申请_录入").current("成品描述")     dr("规格型号") = Tables("刀具入库申请_录入").current("规格型号")     dr("总库存数") = Tables("刀具入库申请_录入").current("入库数量")     dr("库位") = Tables("刀具入库申请_录入").current("库位") End If

--  作者：有点蓝 --  发布时间：2021/6/28 21:42:00 --   代码没有问题，如果没有新增，说明已经有符合条件的材料编码了 Dim dr As DataRow msgbox("[材料编码] = \'"& Tables("刀具入库申请_录入").current("成品编码") & "\'") dr = DataTables("配件库存表").SQLFind("[材料编码] = \'"& Tables("刀具入库申请_录入").current("成品编码") & "\'") msgbox(dr Is Nothing)

--  作者：nuoyan89 --  发布时间：2021/6/28 21:57:00 --   如果要批量识别新增可以怎么改呢？目前只能新增当前行，录入这个表中会有多行。

--  作者：有点蓝 --  发布时间：2021/6/28 22:14:00 --   遍历所有行：http://www.foxtable.com/webhelp/topics/1438.htm