主题：[求助]平均价

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

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("卖出_数量")
            If dr.IsNull("卖出_卖出价") Then
                dr("买入_平均价") = (sum1-sum2) / (count1-count2)
                dr("卖出_平均价") = Nothing
                pinavg = dr("买入_平均价")
            Else
                dr("买入_平均价") = Nothing
            End If
        Next
End Select