根据单号提取不同产品数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

通过在当前表中输入订单单号来获取销售订单明细表中的数据（有多个产品）

每新增一行，输入订单单号，获取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

此主题相关图片如下：snap1.jpg

主题：根据单号提取不同产品数据