Foxtable(狐表)用户栏目专家坐堂 → [求助]订单导入只能获取一行数据


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

主题:[求助]订单导入只能获取一行数据

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


加好友 发短信
等级:一尾狐 帖子:422 积分:3430 威望:0 精华:0 注册:2015/5/20 8:44:00
[求助]订单导入只能获取一行数据  发帖心情 Post By:2017/9/29 16:51:00 [只看该作者]

入库时通过采购订单获取数据
如果采购订单里本次交货数据<订单数量的时候就可以多行直接获取数据
但是采购订单里本次交货数据=订单数量的时候,每次只能获取一行数据,是什么情况

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


[此贴子已经被作者于2017/9/29 16:58:43编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/29 16:57:00 [只看该作者]

请说明项目的操作步骤,没测试出有什么问题。

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


加好友 发短信
等级:一尾狐 帖子:422 积分:3430 威望:0 精华:0 注册:2015/5/20 8:44:00
  发帖心情 Post By:2017/9/29 17:01:00 [只看该作者]

老师,重新上传了附件,你看下
辅料出入库窗口,批量导入按钮,手动修改本次交货数据

如果本次交货数据<订单数量的时候,入库表就可以多行直接获取数据
但是本次交货数据=订单数量的时候,入库表每次只能获取一行数据

需要怎么才能改掉这个问题
[此贴子已经被作者于2017/9/29 17:31:09编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/29 17:34:00 [只看该作者]

我这样测试,没问题

 

点击批量导入->在本次交货列填入200、200->确认,然后导入了2行数据。


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


加好友 发短信
等级:一尾狐 帖子:422 积分:3430 威望:0 精华:0 注册:2015/5/20 8:44:00
  发帖心情 Post By:2017/9/29 17:35:00 [只看该作者]

奇怪了 我这如果是两行200只能导入1行

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


加好友 发短信
等级:一尾狐 帖子:422 积分:3430 威望:0 精华:0 注册:2015/5/20 8:44:00
  发帖心情 Post By:2017/9/29 17:52:00 [只看该作者]

老师帮忙再看下,录了个GIF
图片点击可在新窗口打开查看此主题相关图片如下:录像2_转.gif
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/29 18:03:00 [只看该作者]

触发了datacolchanged事件,修改了订单表数据数据,导致触发窗口表filter属性筛选了数据

 

systemready = False
For Each r1 As Row In Tables("入库导入_采购订单")

    Dim  r2 As Row = Tables("入库表").AddNew
    r2("编号") = r1("编号")
    r2("入库数量") = r1("本次交货")
    r2("入库批次") = r1("辅料批次")
    r2("订单数量") = r1("订单数量")
    r2("订单批次") = r1("订单批次")
   
    r1("本次交货") = Nothing
Next
systemready =True
e.Form.close

 


 回到顶部