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

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

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

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/29 21:45:00 [只看该作者]

老师谢谢，我修改不了。以后让我慢慢学习，肯定的。

大红袍

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

加好友

发短信

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

Post By：2015/6/29 21:49:00 [只看该作者]

你计算的逻辑是什么啊，卖出的时候，怎么减去处理啊，有可能卖出部分或者大部分啊

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/29 22:01:00 [只看该作者]

老师我亏了好多钱有的头痛，还是你帮我改一下吧。

大红袍

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

加好友

发短信

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

Post By：2015/6/29 22:28: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
        For Each dr As DataRow In e.DataTable.Select(filter, "_sortkey")
            sum1 += dr("买入价") * dr("买入量")
            'sum2 += dr("卖出价") * dr("卖出量")
            count1 += dr("买入量")
            count2 += dr("卖出量")
            e.DataRow("买入均价") = (sum1-sum2) / (count1-count2)
        Next
End Select

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/30 8:52:00 [只看该作者]

狐表老师早上。框中的数据是21.896元

图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png

[此贴子已经被作者于2015/6/30 8:53:14编辑过]

大红袍

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

加好友

发短信

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

Post By：2015/6/30 9:52: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
        For Each dr As DataRow In e.DataTable.Select(filter, "_sortkey")
            sum1 += dr("买入价") * dr("买入量")
            sum2 += dr("卖出价") * dr("卖出量")
            count1 += dr("买入量")
            count2 += dr("卖出量")
            If dr.IsNull("卖出价") Then
                dr("买入均价") = (sum1-sum2) / (count1-count2)
                dr("卖出均价") = Nothing
            Else
                dr("买入均价") = Nothing
                dr("卖出均价") = (sum2-sum1) / (count2-count1)
            End If
        Next
End Select

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/30 10:38:00 [只看该作者]

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

大红袍

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

加好友

发短信

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

Post By：2015/6/30 10:45: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, "_sortkey")
            sum1 += dr("买入价") * dr("买入量")
            sum2 += pinavg * dr("卖出量")
            count1 += dr("买入量")
            count2 += dr("卖出量")
            If dr.IsNull("卖出价") Then
                dr("买入均价") = (sum1-sum2) / (count1-count2)
                dr("卖出均价") = Nothing
                pinavg = dr("买入均价")
            Else
                dr("买入均价") = Nothing
            End If
        Next
End Select

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/30 13:45:00 [只看该作者]

谢谢老师，正确了。

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

总数 39 上一页 1 2 3 4

主题：[求助]