If e.DataCol.name = "入库数量" OrElse e.DataCol.name = "出库数量"
e.DataRow("出入库数量") = e.DataRow("出库数量") + e.DataRow("入库数量")
If e.DataRow("出入库单号") <> "删除记录" AndAlso e.DataRow("类别") <> "组装" AndAlso e.DataRow("类别") <> "装配" AndAlso e.DataRow("类别") <> "配件" Then
'批号表2自动更新数据
Dim re As Boolean = False
For Each dr As DataRow In DataTables("批号表2").Select("物料编号='" & e.DataRow("物料编号") & "' and 仓库名称='" & e.DataRow("仓库名称") & "'")
dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量") + dr("库存数量") - e.OldValue
dr("批号变动记录") = "出入库2变动:" & Date.now & " " & User.Name
dr("库存数量变动记录") = "出入库2变动:" & Date.now & " " & User.Name
re = True
Next
If re = False
Dim dr As DataRow
dr = DataTables("批号表2").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("批号变动记录") = "出入库2变动:" & Date.now & " " & User.Name
dr("库存数量变动记录") = "出入库2变动:" & Date.now & " " & User.Name
End If
'2018/8/15增加此句,自动删除批号表2里面库存数量=0的数据行
DataTables("批号表2").deletefor("库存数量 = 0")
DataTables("批号表2").save
End If
End If
我觉得上面这段”|出入库2“这个数据表之 datacolchanged 代码有问题，因为 '批号表2自动更新数据 这段代码也不起作用。
加好友 
发短信
Post By：2022/3/12 11:04:00 [只看该作者]
