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

首先谢谢红袍哥哥您发的那个统计表我弄明白了

我想问下，统计订单表中：订单按时间顺序排列，统计同一个【客户名称】，同一个【提货地点】的【数量】之和，在统计客户提油明细表中，同一个【客户名称】，同一个【提货地点】的【提油数量】和【实际提油数量】，

然后计算每一个不同的客户名称中每个提货地点剩余的油量，（订单表中有个单价列，但是订单的时间不同，单价也不同，但是每个订单中都有数量，所以就是累计客户提油表中同一个客户，同一个提货地点中提油的总和，用这个总和减去{按时间先后顺序排列的客户订单中的【数量】，够减去一个就按照第一个订单的单价计算金额，例如：假设客户1 地点1 的订购数量分别为 100吨 200 吨 300吨，（订购合同工按照时间先后排序，例如2015.9.2 2015.9.3 2015.9.4）该客户，该提货地点提油共计500吨，那么其中100吨按订购合同未100吨时候那个单价计算，在200吨按 200吨的合同单价计算

剩下的不足第三个合同订购数量的按第三个合同订购单价计算呢要怎么办呢求大神帮忙}）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

初学者看视频教程。

单价计算的问题，你提油的时候，就应该去指定，每次提油，是哪个订单的，这样才方法后面的计算啊。

每次提油是应该指定的但是指定的方式有点区别，指定的方式是按照订单表中这个客户的订单来指定的，例如这个客户一共有

3个订单，每个订单订购数量别分为100吨，200吨，300吨，然后他开始提油，他提油总数累计到100吨的话就按第一个订单签订的单价进行计算如果提油总数为200吨，那么其中100吨按第一个订单单价计算，剩下的100吨按照第二个订单的单价计算，，以此类推，，说白了必须是一个订单一个订单的执行，第一个订单执行完了才走下一个订单，一次类推

还有就是您给我的那个统计代码不是你临时表嘛我要做成数据表应该怎么办

导出，导入，就是数据表。

或者你用filler填充数据。http://www.foxtable.com/help/topics/0680.htm

大红袍哥哥您能不能写段完整的代码我看下

代码已经给出。知识点已经给出。

单价问题，去datacolchanged事件写代码

Select Case e.DataCol.Name
    Case "客户名称", "提货地点", "提油数量"
        If e.DataRow.IsNull("客户名称") OrElse e.DataRow.IsNull("提货地点") Then
            e.DataRow("单价") = Nothing
        Else
            Dim psum As Double = e.DataTable.Compute("sum(提油数量)", "_Identify < " & e.DataRow("_Identify") & " and 客户名称 = '" & e.DataRow("客户名称") & "' and 提货地点 = '" & e.DataRow("提货地点") & "'")
            Dim drs As List(Of DataRow) = DataTables("订单").Select("客户名称 = '" & e.DataRow("客户名称") & "' and 提货地点 = '" & e.DataRow("提货地点") & "'", "订单日期")
            Dim sum As Double = 0
            For Each dr As DataRow In drs
                If sum < psum Then
                    sum += psum
                Else
                    e.DataRow("单价") = dr("单价")
                    Exit For
                End If
            Next
        End If
End Select

主题：求大神帮忙