一。执行下面代码有以下问题:
1.单价,数量引不过去,只有“0”,不知道什么原因?
2.物料号存在时,引用过去出现只有“物料号”,是否可存在就引用不了?
二。对代码改进
1.对存在的物料号,数量可以加减等运算,单价也一样。如:库存数=库存数+进货数,单价=(库存数+进货数)/2;
三。实现类此功能库存计算,是否更高效,准确方法,多表统计有试过还可以,就做多个方法进行验证。请老师,指导,谢谢
Select Case e.DataCol.name
Case "物料号"
Dim dr As DataRow = DataTables("库存表").Find("物料号 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("库存表").AddNew()
dr("物料号") = e.DataRow("物料号")
dr("品名") = e.DataRow("品名")
dr("型号") = e.DataRow("型号")
dr("单价") = e.DataRow("单价")
dr("库存数") = e.DataRow("数量")
Else
dr("物料号") = e.DataRow("物料号")
End If
Case "品名","型号"
Dim dr As DataRow = DataTables("库存表").Find("物料号 = '" & e.DataRow("物料号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
Dim dr As DataRow = DataTables("库存表").Find("物料号 = '" & e.DataRow("物料号") & "'")
If dr IsNot Nothing Then
dr.Delete()
End If