拆单表里的DataColChanged事件代码
If e.DataCol.Name = "prdname" Then
If e.NewValue Is Nothing Then
e.DataRow("AllQuantity") = Nothing
e.DataRow("DistributiveQuantity") = Nothing
e.DataRow("OperatorID") = Nothing
e.DataRow("DealerName") = Nothing
e.DataRow("DealerCode") = Nothing
e.DataRow("OrderCode") = Nothing
e.DataRow("PrdCode") = Nothing
e.DataRow("DistributiveStatus") = Nothing
e.DataRow("ScanQuantity") = Nothing
e.DataRow("UplodaTime") = Nothing
e.DataRow("Standard") = Nothing
e.DataRow("DepotArea") = Nothing
e.DataRow("Surplus") = Nothing
Else
Dim dr As DataRow
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("OrderInfo").Find("[prdname] = '" & e.NewValue & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("AllQuantity") = dr("AllQuantity")
e.DataRow("OperatorID") = dr("OperatorID")
e.DataRow("DealerName") = dr("DealerName")
e.DataRow("DealerCode") = dr("DealerCode")
e.DataRow("OrderCode") = dr("OrderCode")
e.DataRow("PrdCode") = dr("PrdCode")
e.DataRow("DistributiveStatus") = dr("DistributiveStatus")
e.DataRow("Standard") = dr("Standard")
e.DataRow("DepotArea") = dr("DepotArea")
End If
End If
End If
订单表里的DataColChanged事件
If e.DataCol.Name = "AllQuantity"
Dim Filter As String = "[PrdName] = '" & e.DataRow("PrdName") & "'"
Dim drs As List(Of DataRow) = DataTables("CutorderTable").Select(Filter)
For Each dr As DataRow In drs
dr("AllQuantity") = e.DataRow("AllQuantity")
Next
End If
If e.DataCol.Name = "Prdname" Then
If e.NewValue Is Nothing Then
e.DataRow("Surplus") = Nothing
Else
Dim dr As DataRow
'在拆单表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("CutorderTable").Find("[prdname] = '" & e.NewValue & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("Surplus") = dr("Surplus")
End If
End If
End If
[此贴子已经被作者于2017/9/7 16:49:45编辑过]
加好友 
发短信
Post By：2017/9/7 16:43:00 [只看该作者]
此主题相关图片如下：捕获1111111.png
