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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]平均价

共有2231人关注过本帖树形打印复制链接主题：[求助]平均价

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/13 15:21:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "买入_买入价","买入_数量","卖出_卖出价","卖出_数量"
        Dim filter As String = "股piao名称='" & e.DataRow("股piao名称") & "'"
        Dim sum1 As Double = 0
        Dim sum2 As Double = 0
        Dim count1 As Double = 0
        Dim count2 As Double = 0
        Dim pinavg As Double = 0
        For Each dr As DataRow In e.DataTable.Select(filter, "_Identify")
            sum1 += dr("买入_买入价") * dr("买入_数量")
            sum2 += pinavg * dr("卖出_数量")
            count1 += dr("买入_数量")
            count2 += dr("卖出_数量")
            dr("买入_平均价") = (sum1-sum2) / (count1-count2)
            dr("卖出_平均价") = Nothing
            pinavg = dr("买入_平均价")
        Next
End Select

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/13 17:27:00 [显示全部帖子]

这个意思？

Select Case e.DataCol.Name
    Case "股piao名称","买入_金额","卖出_金额"
        Dim fdr As DataRow = e.DataTable.Find("[股piao名称] = '" & e.DataRow("股piao名称") & "'", "[_Identify] Desc")
        If fdr IsNot Nothing Then
            e.DataTable.replaceFor("仓储_金额1", Nothing, "[股piao名称] = '" & e.DataRow("股piao名称") & "'")
            Dim sum1 As Double = e.DataTable.compute("sum(买入_金额)", "[股piao名称] = '" & e.DataRow("股piao名称") & "'")
            Dim sum2 As Double = e.DataTable.compute("sum(卖出_金额)", "[股piao名称] = '" & e.DataRow("股piao名称") & "'")
            fdr("仓储_金额1") = sum2 - sum1
        End If
End Select

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/13 19:22:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "卖出_数量","卖出_卖出价","卖出_金额","仓储_数量","仓储_金额"
        Dim pdr As DataRow = e.DataTable.Find("股piao名称 = '" & e.DataRow("股piao名称") & "' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If pdr IsNot Nothing Then
            e.DataTable.ReplaceFor("仓储_盈亏", Nothing, "股piao名称 = '" & e.DataRow("股piao名称") & "' ")
            e.DataRow("仓储_盈亏") = e.DataRow("卖出_金额") + e.DataRow("仓储_金额") - pdr("仓储_金额")
        End If
End Select

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/13 20:53:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "卖出_数量","卖出_卖出价","卖出_金额","仓储_数量","仓储_金额"
        Dim pdr As DataRow = e.DataTable.Find("股piao名称 = '" & e.DataRow("股piao名称") & "' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
        If pdr IsNot Nothing Then
            e.DataTable.ReplaceFor("仓储_盈亏", Nothing, "股piao名称 = '" & e.DataRow("股piao名称") & "' and 卖出_数量 is not null ")
            e.DataRow("仓储_盈亏") = e.DataRow("卖出_金额") + e.DataRow("仓储_金额") - pdr("仓储_金额")
        End If
End Select

下一主题 >> << 上一主题

主题：[求助]平均价