以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助,指定要增加的行数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33729)

--  作者:晕了快扶我
--  发布时间:2013/5/23 14:17:00
--  求助,指定要增加的行数

搞了半天没搞定

在窗口用按钮控制,用“出库单”数量/MOQ得到在标签表要添加的行数,并且标签表的数量等于出库单的MOQ,OPN = OPN

例子

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:标签测试.foxdb


--  作者:晕了快扶我
--  发布时间:2013/5/23 14:18:00
--  
图片点击可在新窗口打开查看上传的时候忘记改了,不要点按钮,否则会死机,我测试DO..LOOP没改过来
--  作者:Bin
--  发布时间:2013/5/23 14:23:00
--  
问题描述清楚一点,不太明白你的意思!
--  作者:晕了快扶我
--  发布时间:2013/5/23 14:30:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130523142722.jpg
图片点击可在新窗口打开查看


For Each r As Row In Tables("窗口1_出库表")
    Dim temp As Integer = r("数量")/r("MOQ")
    Dim r1 As DataRow = DataTables("标签表").AddNew(Temp)
    r1("OPN") = r("OPN")
    r1("数量") = r("MOQ")
Next

出库表中的每一行,我都进行计算,计算出temp的值,这个值作为标签表的添加行数

比如 A 料,有100 ,MOQ是10 那么在标签表里增加100/10 =10行 OPN为A,数量为10


--  作者:晕了快扶我
--  发布时间:2013/5/23 14:31:00
--  
Dim r1 As DataRow = DataTables("标签表").AddNew(Temp)
我现在只能增加到1行有数据的,其他9行都是空行
--  作者:Bin
--  发布时间:2013/5/23 14:35:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:标签测试.foxdb


--  作者:晕了快扶我
--  发布时间:2013/5/23 14:45:00
--  
TKS...