以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何把套件产品拆成单件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85304)

--  作者:sunnyfastener
--  发布时间:2016/5/23 9:01:00
--  如何把套件产品拆成单件

有个螺栓螺母产品,如何把套产品自动分解成单件产品。


图片点击可在新窗口打开查看此主题相关图片如下:物料分解.jpg
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2016/5/23 9:04:00
--  

参考

 

http://www.foxtable.com/help/topics/0245.htm

 


--  作者:sunnyfastener
--  发布时间:2016/5/23 9:07:00
--  

追加:

客户传入的信息是第一列,我的设想是:

1、启动一个按钮(分解)后,在原有表中,下面自动分解成单项物料

2、同时也生成二张单项物料表,一张是“全螺纹螺柱”,另一张是“II六角螺母”

 


--  作者:大红袍
--  发布时间:2016/5/23 9:21:00
--  
上传foxtable实例。
--  作者:sunnyfastener
--  发布时间:2016/5/23 9:42:00
--  我是新手,不知道,怎么上传项目

我是新手,不知道,怎么上传项目

 


--  作者:大红袍
--  发布时间:2016/5/23 9:45:00
--  

这样上传

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 


--  作者:sunnyfastener
--  发布时间:2016/5/23 9:47:00
--  上传,不知对吗
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:紧固件erp.table


--  作者:大红袍
--  发布时间:2016/5/23 10:02:00
--  

1、

 

Dim dt As DataTable = DataTables("泰州寄售2")
Dim drs As List(Of DataRow) = dt.Select("")
For Each dr As DataRow In drs
    Dim ary() As String = dr("货物名称").split("/")
    If ary.length > 1 Then
        For i As Integer = 0 To ary.length-1
            Dim ndr As DataRow = dt.AddNew
            ndr("货物名称") = ary(i)
            ndr("规格型号") = dr("规格型号").split(new Char() {"x", "*"})(i)
            ndr("制造标准") = dr("制造标准").split(new Char() {" ", "|", StrToWide("|")})(i)
            ndr("单位") = "1/" & ary.length
            ndr("材质") = dr("材质")
        Next
    End If
Next

 

2、可以用查询表 http://www.foxtable.com/help/topics/2321.htm

 


--  作者:sunnyfastener
--  发布时间:2016/5/23 10:21:00
--  代码在哪儿输入

是不是把这段代码输入命令窗口?

我输入了,并执行,没有任何变化


--  作者:大红袍
--  发布时间:2016/5/23 10:26:00
--  
以下是引用sunnyfastener在2016/5/23 10:21:00的发言:

是不是把这段代码输入命令窗口?

我输入了,并执行,没有任何变化

 

你不是要单独做一个按钮全部生成么? http://www.foxtable.com/help/topics/0698.htm