- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 由材料描述生成材料单 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=41766)
-- 发布时间：2013/10/26 22:14:00
-- 由材料描述生成材料单
产品A材料用"材料A+材料B+材料C"描述，想用代码实现材料清单如下:
产品A 材料A
产品A 材料B
产品A 材料C
附件示例，用Product表生成BOM表。请指教。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成材料单.table |
-- 发布时间：2013/10/26 22:20:00
--
参考代码，具体自己改一下
For Each r As Row In Tables("Product").Rows
Dim arys() As String = r("Material").split("+")
For Each ary As String In arys
Dim nr As Row = Tables("BOM").AddNew
nr("PartName") = r("PartName")
nr("Material") = ary
Next
Next
-- 发布时间：2013/10/26 22:33:00
--
好了，谢谢！