Foxtable(狐表)用户栏目专家坐堂 → 如何把订单明细的内容移入库存明细表


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

主题:如何把订单明细的内容移入库存明细表

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/7 19:10:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/7 22:21:00 [显示全部帖子]

 你是否是需要这样的效果:把关联表里所有的行,都复制到库存表里去?

Dim nma() As String = {"供应商名称","产品名称","产品数量","产品单价"} 'A表数据来源列
Dim  nmb()  As  String = {"供应商名称","产品名称","产品数量","产品单价"} 'B表数据接收列
For Each r As Row In Tables("订单主表.订单明细表").Rows
    Dim dr As DataRow = DataTables("库存明细表").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = r(nma(i))
    Next
Next

 回到顶部