Select Case e.DataCol.Name
Case "品号","单号","单据类型","仓库名称"
Dim dr As DataRow = e.DataRow
Dim filter1 As String
Dim pr As DataRow
If dr("仓库名称") = "成品" Then
filter1 = "品号 = '" & dr("品号") & "' And 单号 = '" & dr("单号") & "' And 入库数量 = '" & dr("入库数量") & "'"
pr = DataTables("入库成本表").Find(filter1)
If pr IsNot Nothing Then
dr("结存单价") = pr("结存单价")
End If
ElseIf dr("仓库名称") = "现场仓" Then
If dr("单据类型") = "退料单" OrElse dr("单据类型") = "领料单" OrElse dr("单据类型") = "出库单" OrElse dr("单据类型") = "入库单" OrElse dr("单据类型") = "调整单" OrElse dr("单据类型") = "调拨单" OrElse dr("单据类型") = "委外送料单" OrElse dr("单据类型") = "委外退料单" OrElse dr("单据类型") = "退货单" OrElse dr("单据类型") = "销货单" OrElse dr("单据类型") = "销退单" Then
Dim pr = e.DataTable.Find("品号 = '" & dr("品号") & "' and _Identify < " & dr("_Identify"), "_Identify desc")
If pr IsNot Nothing Then
dr("结存单价") = pr("结存单价")
End If
End If
Else
'其它类型
End If
End Select
加好友 
发短信
Post By：2018/6/1 22:51:00 [显示全部帖子]
