主题：[求助]销售

此主题相关图片如下：图像 039.png

1、你改成23楼的项目了没有？

 

2、做个实例发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:进销存.table

Select Case e.DataCol.name
    Case "商品ID", "出库_数量"
        If e.newvalue <> e.oldvalue Then '不是重置列
           
            If e.DataRow("出库_数量") IsNot Nothing Then
                Dim r As DataRow = e.DataRow
                If e.DataCol.name = "出库_数量" AndAlso e.OldValue<> Nothing Then
                    Dim count As Integer = 0
                    Dim drs As List(Of DataRow) = DataTables("入库明细").Select("商品ID = '" & e.DataRow("商品ID") & "'", "入库日期 desc, _Identify desc")
                    Dim val = e.OldValue
                    For i As Integer = 0 To drs.count - 1
                        Dim dr As DataRow = drs(i)
                        count += dr("出库")
                        Dim sy As Integer = count - val
                       
                        If sy >= 0 Then
                            dr("出库") = sy
                            dr("库存") = dr("入库_数量")-sy
                            Exit For
                        Else
                            dr("出库") = 0
                            dr("库存") = dr("入库_数量")
                        End If
                    Next
                End If
                Dim sum As Double = DataTables("入库明细").compute("sum(库存)", "商品ID = '" & e.DataRow("商品ID") & "' And 库存状态 = '可出库'")
                If sum < r("出库_数量") Then
                    msgbox("库存不够")
                Else
                    '==================================
                    Dim count As Integer = 0
                    Dim cb As Double = 0
                    Dim drs As List(Of DataRow) = DataTables("入库明细").Select("商品ID = '" & e.DataRow("商品ID") & "' And 库存状态 = '可出库'", "入库日期, _Identify")
                    Dim s As String = ""
                    Dim K As String = ""
                   
                    For i As Integer = 0 To drs.count - 1
                        Dim dr As DataRow = drs(i)
                        count += dr("库存")
                        Dim sy As Integer = count - r("出库_数量")
                       
                        If sy >= 0 Then
                            cb += dr("入库_单价") * (dr("库存")-sy)
                            dr("出库") = dr("入库_数量") - sy
                            s &= dr("入库单编号明细") & ","
                            K &= dr("库存") & ","
                            r("入库批次号") = s.trim(",")
                            r("库存") = K.trim(",")
                            r("成本") = cb
                            Exit For
                        Else
                            s &= dr("入库单编号明细") & ","
                            K &= "0,"
                            cb += dr("入库_单价") * dr("库存")
                            dr("出库") = dr("入库_数量")
                            dr("库存") = 0
                        End If
                    Next
                End If
               
            End If
           
        End If
End Select

老师，出库明细表修改数据后出库批次号数量和入库入库单编号明细数量对不上。

此主题相关图片如下：图像 043.png

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:进销存 (1).table

此主题相关图片如下：图像 044.png

 

库存列你可以改名成【提取数量】（改名代码也要改）

 

然后再加一列库存列，用来显示剩余库存

 

再说一次：请在理解代码的基础上再继续开发。如果上面两句话理解不了，请下功夫先看懂一下代码。

而且，不建议你显示剩余库存。剩余库存没有意义，每次修改出库所有行的剩余库存都要更新很影响效率。

 

如果确实希望显示，建议单独显示入库明细表。

哦，好的，老师花费你好多宝贵时间谢谢了。