此主题相关图片如下：qq图片20181116143537.png

为了计算库存  在DataColChanged 事件中写了 相关代码， 但考虑到 输入顺序，后期修改等造成对库存计算不准确，想严格按照图片上的录入顺序 录入数值

怎么样控制下录入顺序呢？

或者还有别的办法解决 准确计算库存吗？

 Case "包装油批次","生产数量","生产日期","产品名称"

         If e.DataRow("生产数量")<>0 And  e.DataRow("产品名称")<>"" And e.DataRow("生产日期")IsNot Nothing  And e.DataRow("批次") Then
        Dim pr As DataRow
        pr = DataTables("库存表").sqlFind("批次 = \'" & e.OldValue & "\' and 生产日期= \'"& e.DataRow("生产日期") &"\' And 产品名称= \'"& e.DataRow("产品名称") &"\' ") \'查找老批次
       
        If pr IsNot Nothing Then
           
            pr("入库数量")= pr("入库数量") - e.DataRow("生产数量")
            pr("库存量")=pr("入库数量")-pr("发出数量")
            pr.Save
              MessageBox.Show("1")

           
        End If
        Dim prn As DataRow
       
        prn = DataTables("库存表").sqlFind("批次 = \'" & e.DataRow("包装油批次") & "\'and 生产日期= \'"& e.DataRow("生产日期") &"\' And 产品名称= \'"& e.DataRow("产品名称") &"\' ") \'查找xin批次
        If prn IsNot Nothing Then
           
            prn("入库数量")= prn("入库数量") + e.DataRow("生产数量")
            prn("库存量")=prn("入库数量")-prn("发出数量")
            prn.Save
           
            MessageBox.Show("2")
           
           
           
        Else
            Dim dr As DataRow= DataTables("库存表").AddNew
            dr("物料名称")=e.DataRow("产品名称")
            dr("批次")=e.DataRow("包装油批次")
            dr("入库数量")= e.DataRow("生产数量")
            dr ("生产日期")= e.DataRow("生产日期")
            dr.Save
           
            MessageBox.Show("3")
           
           
        End If
      End If 

1、不理解你为什么要控制录入顺序。

2、如果你要使用oldvalue，请单独判断批次列，不要写在一起。

3、不建议使用 加减 的方式计算库存，库存尽量通过 总入库 减去 总出库 计算。也就是确保不论怎么时候计算，都能正确得到结果。