以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何把订单明细的内容移入库存明细表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43454)
--  作者：ap9709130
--  发布时间：2013/12/7 17:59:00
--  如何把订单明细的内容移入库存明细表

各位高手

 

你们好！我刚准备学习用狐表做一个简单的进销存，本人很菜，想问一下，怎么样才能把输入的订单明细里的产品名称，数量量，和单价 在关联的订单主表_订单明细表中，在窗口中的保存时，同时把相关的订单明细移入到库存表中，请指教。多谢！
--  作者：有点甜
--  发布时间：2013/12/7 19:10:00
--  
 可参考一下
--  作者：ap9709130
--  发布时间：2013/12/7 21:59:00
--  

我试过了，但好像不行啊。我的代码如下：

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

但运行不了，显示  datarow 不是 controleventargs 成员。错误代码：dr(nmb(i)) = e.DataRow(nma(i))

 

能帮我看看哪里错了吗？
--  作者：有点甜
--  发布时间：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