以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  入库主表点选添加物料如何做到相同的物料不会重复添加  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120363)

--  作者:有点甜
--  发布时间:2018/6/13 16:09:00
--  

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


--  作者:有点甜
--  发布时间:2018/6/13 16:55:00
--  
添加物料窗口,表格table控件,doubleclick事件。