入库主表点选添加物料如何做到相同的物料不会重复添加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

doubleclick事件

Dim i = Tables("订单主表.订单明细").findrow("物料编号 = '" & e.Table.Current("物料编号") & "'")
If i >= 0 Then
    msgbox("已经选择,不能重复")
Else
    Tables("订单主表.订单明细").Current("物料编号") = e.Table.Current("物料编号")
    Tables("订单主表.订单明细").Current("物料名称") = e.Table.Current("物料名称")
    Tables("订单主表.订单明细").Current("客户名称") = e.Table.Current("客户名称")
    Tables("订单主表.订单明细").Current("版本号") = e.Table.Current("版本号")
    Tables("订单主表.订单明细").Current("物料图号") = e.Table.Current("图号")
    Tables("订单主表.订单明细").Current("单价") = e.Table.Current("单价")

    Tables("入库主表").Current("物料编号") = e.Table.Current("物料编号")
    Tables("入库主表").Current("物料名称") = e.Table.Current("物料名称")
    Tables("入库主表").Current("客户名称") = e.Table.Current("客户名称")
    Tables("入库主表").Current("版本号") = e.Table.Current("版本号")
    Tables("入库主表").Current("物料图号") = e.Table.Current("图号")
    Tables("入库主表").Current("单价") = e.Table.Current("单价")


    Forms("添加物料").Close
End If

min1979	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：小狐帖子：144 积分：3044 威望：0 精华：0 注册：2018/5/10 13:51:00	入库主表点选添加物料如何做到相同的物料不会重复添加 Post By：2018/6/13 15:59:00 [只看该作者] 用户已被锁定

min1979	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：小狐帖子：144 积分：3044 威望：0 精华：0 注册：2018/5/10 13:51:00	Post By：2018/6/13 16:20:00 [只看该作者] 用户已被锁定

min1979	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：小狐帖子：144 积分：3044 威望：0 精华：0 注册：2018/5/10 13:51:00	Post By：2018/6/13 16:21:00 [只看该作者] 用户已被锁定

主题：入库主表点选添加物料如何做到相同的物料不会重复添加