If e.DataCol.name = "入库数量" OrElse e.DataCol.name = "出库数量"
e.DataRow("出入库数量") = e.DataRow("出库数量") + e.DataRow("入库数量")
If e.DataRow.isnull("批号") = True
Else
'批号表自动更新数据
Dim re As Boolean = False
For Each dr As DataRow In DataTables("批号表").Select("物料编号='" & e.DataRow("物料编号") & "' and 批号='" & e.DataRow("批号") & "'")
dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量") + dr("库存数量") - e.OldValue
dr("批号变动记录") = "出入库变动:" & Date.now & " " & User.Name
dr("库存数量变动记录") = "出入库变动:" & Date.now & " " & User.Name
re = True
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
'2018/8/15增加此句,自动删除批号表里面库存数量=0的数据行
DataTables("批号表").deletefor("库存数量 = 0")
End If
End If
上面那段代码是“出入库”的数量变动触发“批号表”的数量变化。本来,出入库之变更记录里面保存的时间和批号表里面之变动记录保存的时间应该是一样的,但是很奇怪,今天这次出入库变动的时间与批号表的变动时间就不一致,而且批号表记录的时间还慢了6秒钟。这是为什么?当然,批号表的数据也是错误的。