老师，我在做入库时希望做个识别，根据成品编码和配件库存表中的材料编码做对比，如果这个物料编码在配件库存表中没有，则新增，以下代码不做新增操作，也没有错误提示（注：入库表中会有多条记录，这个代码是定在控件中的）。请帮忙看看，谢谢！
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
加好友 
发短信
Post By：2021/6/28 21:29:00 [显示全部帖子]
