以下是【销售发货明细】表已经加载后从【销售发货明细】表中取值到【销售订单明细】表。如果【销售发货明细】表没有加载,【销售订单明细】表如何从【销售发货明细】表取值If e.DataCol.Name = "订单单号" Then '产品ID发生改变
Dim dt As DataRow
dt = DataTables("销售订单").Find("订单单号 = " & "'" & e.DataRow("订单单号") & "'" ) '在产品表找出该产品
If dt IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("客户简称")= dt("客户简称")
e.DataRow("订单金额")= dt("订单金额")
e.DataRow("客户简称")= dt("客户简称")
End If
Dim trs As List(Of DataRow) = DataTables("销售订单明细").Select("订单单号 ='" & e.DataRow("订单单号") & "'")
For Each tr As DataRow In trs
If tr IsNot Nothing Then
Dim nma() As String = {"订单单号","产品代码","产品型号规格","颜色","单位","数量","订单数量","单价","金额"} '销售订单明细表数据来源列
Dim nmb() As String = {"订单单号","产品代码","产品型号规格","颜色","单位","数量","订单数量","单价","金额"} '销售发货明细表数据接收列
Dim dr As DataRow = DataTables("销售发货明细").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = tr(nma(i))
Next
End If
Next
End If