-- 作者:有点甜
-- 发布时间: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
|