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

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