If e.DataCol.name = "入库数量" OrElse e.DataCol.name = "出库数量"
If e.DataRow("批号") = ""
Else
Dim re As Boolean = False
For Each dr As DataRow In DataTables("批号表").DataRows
If dr("批号") = e.DataRow("批号") And dr("物料编号") = e.DataRow("物料编号") Then
dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量") + dr("库存数量") - e.OldValue
dr("批号变动记录") = "出入库变动:" & Date.now & " " & User.Name
dr("库存数量变动记录") = "出入库变动:" & Date.now & " " & User.Name
re = True
Exit For
Else
Continue For
End If
Next
If re =False
Dim dr As DataRow
dr = DataTables("批号表").AddNew()
dr("批号") = e.DataRow("批号")
dr("物料编号") = e.DataRow("物料编号")
dr("物料名称") = e.DataRow("物料名称")
dr("类别") = e.DataRow("类别")
dr("来源") = e.DataRow("来源")
dr("客户简称") = e.DataRow("客户")
dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量")
dr("批号变动记录") = "出入库变动:" & Date.now & " " & User.Name
dr("库存数量变动记录") = "出入库变动:" & Date.now & " " & User.Name
End If
DataTables("批号表").deletefor("库存数量 = 0")
End If
End If
加好友 
发短信
Post By：2018/8/14 11:26:00 [只看该作者]
