Foxtable(狐表)用户栏目专家坐堂 → 求助,指定要增加的行数


  共有4405人关注过本帖树形打印复制链接

主题:求助,指定要增加的行数

帅哥哟,离线,有人找我吗?
晕了快扶我
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1196 积分:7051 威望:0 精华:0 注册:2013/3/4 18:02:00
求助,指定要增加的行数  发帖心情 Post By:2013/5/23 14:17:00 [只看该作者]

搞了半天没搞定

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

例子

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


 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1196 积分:7051 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/5/23 14:18:00 [只看该作者]

图片点击可在新窗口打开查看上传的时候忘记改了,不要点按钮,否则会死机,我测试DO..LOOP没改过来

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/23 14:23:00 [只看该作者]

问题描述清楚一点,不太明白你的意思!

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1196 积分:7051 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1196 积分:7051 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/5/23 14:31:00 [只看该作者]

Dim r1 As DataRow = DataTables("标签表").AddNew(Temp)
我现在只能增加到1行有数据的,其他9行都是空行

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/23 14:35:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1196 积分:7051 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/5/23 14:45:00 [只看该作者]

TKS...

 回到顶部