- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何入库单中提取销售订单的产品和规格？？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10543)
-- 发布时间：2011/6/11 7:26:00
-- 如何入库单中提取销售订单的产品和规格？？
我现在的问题是：我有一个销售订单比如订单号是００１ 品种是 玩具１ 规格 １２
我现在要做入库，入库单号是独立的，能不能在入库单的上面加一个销售订单号，ＣＯＭＢＯＸ类型，，如果选中里面的订单号和销售订单号一样，能否把品种和规格带入到入库单的相应列中？
此主题相关图片如下：未命名12.jpg
此主题相关图片如下：未命名13.jpg
此主题相关图片如下：未命名14.jpg
-- 发布时间：2011/6/11 7:28:00
--
能，
你应该上传个例子呀，总不至于让想帮你的人自己造数据，呵呵
-- 发布时间：2011/6/13 8:02:00
--
参考：
http://help.foxtable.com/topics/1458.htm
-- 发布时间：2011/6/13 21:26:00
--
不行呀，，按你的代码我不太明白呀，，，我现在是这样的，，一个入库单，，，，根据入库时输入销售订单号，，，，直接提取产品和规格到入库单里，，，，
If e.DataCol.Name = "订单号" Then \'发生变化的是订单号吗?
\'在销售订单中找该订单号
Dim dr As DataRow
dr = DataTables("销售订单").Find("订单号" = " & "\'" & e.DataRow("订单号") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("品名")= dr("品名")
e.DataRow("规格")= dr("规格")
End If
End If
此主题相关图片如下：未命名.jpg
-- 发布时间：2011/6/13 21:41:00
--
dr = DataTables("销售订单").Find("订单号" = " & "\'" & e.DataRow("订单号") & "\'" )
引号多了
-- 发布时间：2011/6/14 7:15:00
--
dr = DataTables("销售订单").Find("订单号=\'" & e.DataRow("订单号") & "\'" ) |