主题：[求助]销售

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

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

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

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

 

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

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

 

谢谢老师，下面又有问题恳求老师。

请参考成本的计算。

老师，有例子吗？

 

你这个帖子的成本列的计算就是例子，你有没有理解？

 

成本除以数量，不就是单价？

老师好

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

 

 

 

Select Case e.DataCol.name
    Case "商品编号", "数量"
If e.newvalue <> e.oldvalue Then '不是重置列

        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 If
End Select

 

Dim e
Select Case e.DataCol.name
    Case "商品编号", "数量"
        If e.newvalue <> e.oldvalue Then '不是重置列
           
            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
                            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

谢谢老师