以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据单号提取不同产品数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169625)
--  作者：实话实说
--  发布时间：2021/6/23 16:10:00
--  根据单号提取不同产品数据
通过在当前表中输入订单单号来获取销售订单明细表中的数据（有多个产品）
每新增一行，输入订单单号，获取A产品，再新增一行，输入订单单号，获取B产品...
下面这段代码只能获取一个产品。
If e.DataCol.Name = "订单单号" Then
Dim drs As List(Of DataRow) = DataTables("销售订单明细").Select("订单单号 = " & "\'" & e.DataRow("订单单号") & "\'" ) 
    For Each dr As DataRow In drs
    If dr IsNot Nothing
        e.DataRow("产品代码") = dr("产品代码")
    End If
    Next
End If

图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/6/23 16:34:00
--  
这种建议通过按钮一次新增订单号所有对应的产品，表事件一个个来不好控制，再说了如果有10个产品还要输入10次

添加一个文本框，输入订单单号，然后新增按钮

Dim drs As List(Of DataRow) = DataTables("销售订单明细").Select("订单单号 = \'" & e.form.control("textbox1") & "\'" ) 
dim dr2 as datarow
    For Each dr As DataRow In drs
dr2 = DataTables("某某表").addnew
        dr2("订单单号") = dr("订单单号")
        dr2("产品代码") = dr("产品代码")
  Next