主题：求大神祝我，数学高手

请做例子上传上来。类似的问题你问过了啊，变通来用啊。

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75219&authorid=0&page=0&star=1

 

订单明细那里，直接得到单价，然后直接得到总价，统计表那里直接合计总价就行啊

看3楼4楼

直接取明细表的金额列，合计就是答案了啊。

 

 

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

点击浏览该文件:管理项目1.table

无语，看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("提货地点") & "' and 品种 = '" & e.DataRow("品种") & "'")
            Dim drs As List(Of DataRow) = DataTables("订单").Select("客户名称 = '" & e.DataRow("客户名称") & "' and 提货地点 = '" & e.DataRow("提货地点") & "' and 产品名称 = '" & e.DataRow("品种") & "'", "订单日期")
            Dim sum As Double = 0
           
            For Each dr As DataRow In  drs
                sum += dr("数量")
                If sum >= psum Then
                    e.DataRow("单价") = dr("单价")
                    Exit For
                End If
            Next
        End If
End Select

Select Case e.DataCol.Name
    Case "客户名称", "提货地点", "提油数量", "品种", "实际提油数量"
        If e.DataRow.IsNull("客户名称") OrElse 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("提货地点") & "' and 品种 = '" & e.DataRow("品种") & "'")
            Dim drs As List(Of DataRow) = DataTables("订单").Select("客户名称 = '" & e.DataRow("客户名称") & "' and 提货地点 = '" & e.DataRow("提货地点") & "' and 产品名称 = '" & e.DataRow("品种") & "'", "订单日期")
            Dim sum As Double = 0
            Dim zj As Double = 0
            Dim sl As Double = 0
            For i As Integer = 0 To drs.count - 1
                Dim dr = drs(i)
                sum += dr("数量")
                If sum >= psum Then
                    If sum - psum >= e.DataRow("实际提油数量") Then
                        e.DataRow("单价") = ((e.DataRow("实际提油数量")-sl) * dr("单价") + zj) / e.DataRow("实际提油数量")
                        Exit For
                    Else
                        sl += dr("数量")
                        zj += dr("数量") * dr("单价")
                    End If
                End If
            Next
        End If
End Select

明细表加一列金额列，直接给金额列赋值。不求平均单价就好啊。

 e.DataRow("单价") = ((e.DataRow("实际提油数量")-sl) * dr("单价") + zj) / e.DataRow("实际提油数量")

改成

 

  e.DataRow("实际金额") = (e.DataRow("实际提油数量")-sl) * dr("单价") + zj

整体代码要改一下

 

Select Case e.DataCol.Name
    Case "客户名称", "提货地点", "提油数量", "品种", "实际提油数量"
        If e.DataRow.IsNull("客户名称") OrElse 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("提货地点") & "' and 品种 = '" & e.DataRow("品种") & "'")
            Dim drs As List(Of DataRow) = DataTables("订单").Select("客户名称 = '" & e.DataRow("客户名称") & "' and 提货地点 = '" & e.DataRow("提货地点") & "' and 产品名称 = '" & e.DataRow("品种") & "'", "订单日期")
            Dim sum As Double = 0
            Dim zj As Double = 0
            Dim sl As Double = 0
            For i As Integer = 0 To drs.count - 1
                Dim dr = drs(i)
                sum += dr("数量")
                If sum >= psum Then
                    If sum - psum >= e.DataRow("实际提油数量") Then
                        e.DataRow("单价") = ((e.DataRow("实际提油数量")-sl) * dr("单价") + zj) / e.DataRow("实际提油数量")
                        Exit For
                    Else
                        Dim temp As Double = iif(sum-psum-sl<dr("数量"), sum-psum-sl, dr("数量"))
                        sl += temp
                        zj += temp * dr("单价")
                    End If
                End If
            Next
        End If
End Select