[求助]销售 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

上传实例测试，说明具体什么问题。

代码没问题。

1、你进货的两个日期是 2018-07-03 2017-07-09，请注意年份不同；

2、你第二行的进货，没有单价，导致计算值为0。

以下是引用江南小镇在2018/8/4 23:45:00的发言：

老师，在按菜单重置按钮时项目销表（重置商品编号列）库存列不应该发生变化。（重置商品编号后库存数量不正确）

判断是不是重置列，这样判断

If e.newvalue <> e.oldvalue Then '不是重置列

End If

代码没问题。

1、你进货的两个日期是 2018-07-03 2017-07-09，请注意年份不同；

2、你第二行的进货，没有单价，导致计算值为0。

Select Case e.DataCol.name
    Case "商品编号", "数量"
        If e.DataRow("数量") IsNot Nothing Then
            Dim r As DataRow = e.DataRow
            Dim sum As Double = DataTables("进").compute("sum(库存)", "商品编号 = '" & e.DataRow("商品编号") & "' 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("商品编号 = '" & e.DataRow("商品编号") & "' 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
                        dr("出库") = dr("数量") - sy
                        cb += dr("单价") * dr("出库")
                        s &= dr("进货单号") & ","
                        K &= dr("库存") & ","
                        r("进货单号") = s.trim(",")
                        r("库存") = K.trim(",")
                        r("成本") = cb
                        Exit For
                    Else
                        s &= dr("进货单号") & ","
                        K &= "0,"
                        dr("出库") = dr("数量")
                        dr("库存") = 0
                        cb += dr("单价") * dr("出库")
                    End If
                Next
            End If
        End If
End Select

以下是引用江南小镇在2018/8/6 12:48:00的发言：
老师，上面问题解决了谢谢你，现在还有问题请求老师帮忙，如果销表数量列修改数据后希望存表数量列和进表数量列同时更新。

理解上面代码，然后处理。

http://www.foxtable.com/webhelp/scr/1453.htm

下载信息 [文件大小：下载次数： ]
点击浏览该文件:进销存 (1).table

If e.DataCol.Name = "出库" OrElse e.DataCol.name = "数量" Then
    e.DataRow("库存") = e.DataRow("数量") - e.DataRow("出库")
    If e.DataRow("数量") - e.DataRow("出库") > 0 Then
        e.DataRow("库存状态") = "可出库"
    Else
        e.DataRow("库存状态") = "已出库"
    End If
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:进销存 (2).table

请参考成本的计算。

主题：[求助]销售