主题：这种公式应该怎么算

1号  入库  10个 单价100

2好  入库  5个  单价200

3好  入库  7个  单价 150

 

销售

 

4号   销售  6  单价  500

5号   销售  10  单价 450

6号   销售   20  单价 600

 

成本计算

 

销售 前10个 成本按照 100计算 

11-15按照200算

16-23按照150算

4号利润= 6*500-6*100

5号利润= 10*450-1*100-5*200-2*150

6号利润= 20*600-3*150-17*x

 

销售单里面的利润 想按照这种形式算

可以实现么？

 

 

可以实现,我建议你先温习一下帮助,根据你最近的提问,你似乎都忘记狐表如何使用了.  这个新项目基本都是别人帮你完成的. 这样不科学.

 不要这样计算，利润不需要马上算出来，如果要算，也算一个平均的就行了。

我想你误会了吧

大部分都是我自己坐的。不会的话就在论坛请教

我觉得这是很正常的啊

均价不是没有考虑过，只是领导要求这么算。我也头疼啊

你可以搜索一下论坛里面的阶梯电费等之类的例子,原理差不多的

能给个链接么？搜了一下没有找到

我一下子也找不到,你搜索内容 包含电费 或者阶梯  阶梯电费之类的,自己找一下看看

DataColChanged事件加入代码（mark 先入先出）

 

Select Case e.DataCol.Name
    Case "shuliang", "price"
        Dim rks As Double = DataTables("rukudan").Compute("sum(shuliang)", "cord = '" & e.DataRow("cord") & "'")
        Dim cks As Double = e.DataTable.Compute("sum(shuliang)", "cord = '" & e.DataRow("cord") & "'")
        If cks > rks Then
            msgbox("无法出库,库存不足")
        Else
            Dim count As Integer = 0
            Dim drs As List(Of DataRow) = DataTables("rukudan").Select("cord = '" & e.DataRow("cord") & "'", "_Identify")
            For i As Integer = 0 To drs.count - 1
                Dim dr As DataRow = drs(i)
                count += dr("shuliang")
                Dim sy As Integer = count - (cks - e.DataRow("shuliang"))
                If sy >= 0 Then
                    Dim cb, cbs As Double
                    count = 0
                    For j As Integer = i To drs.count - 1
                        dr = drs(j)
                        If j = i Then
                            count += sy
                            cb = sy * dr("price")
                        Else
                            count += dr("shuliang")
                            cb = dr("shuliang") * dr("price")
                            sy = dr("shuliang")
                        End If
                        If count >= e.DataRow("shuliang") Then
                            cbs += (e.DataRow("shuliang") - (count - sy)) * dr("price")
                            msgbox(cbs & count)
                            e.DataRow("lirun") = e.DataRow("shuliang") * e.DataRow("price") - cbs
                            Exit For
                        Else
                            cbs += cb
                        End If
                    Next
                    Exit For
                End If
            Next
        End If
End Select