If dd("库存_数量") - e.DataRow("数量") >= 0 Then
dt("出库_数量") = e.DataRow("数量")
cb = .Find("[商品名称] = '" & e.DataRow("商品名称") & "' and ([关联业务] = '销售' Or [关联业务] = '销售退货' Or [关联业务] = '盘盈')","_Identify Desc",1)
'找出倒数第二次该产品的入库记录
cd = .Find("[商品名称] = '" & e.DataRow("商品名称") & "' and ([关联业务] = '销售' Or [关联业务] = '销售退货' Or [关联业务] = '盘盈')","_Identify Desc")
'找出倒数第一次该产品的入库记录
If cb Is Nothing Then
If cd IsNot Nothing Then
'说明该产品只有一次入库记录
e.DataRow("成本") = e.DataRow("数量")*cd("入库_数量")/cd("入库_金额")
Else
msgbox("没有查找到数据")
End If
Else
If cb("库存_数量")-e.DataRow("数量") >= 0 Then
e.DataRow("成本") = e.DataRow("数量")*cb("入库_数量")/cb("入库_金额")
Else
e.DataRow("成本") = cb("库存_金额")+(e.DataRow("数量")-cb("库存_数量"))*cd("入库_数量")/cd("入库_金额")
End If
End If
加好友 
发短信
Post By：2017/5/12 15:44:00 [显示全部帖子]
