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

老师，下面是原来统计的代码，我要修改成上图显示的样式，谢谢

Select Case e.DataCol.Name
    Case "股票名称","买入_金额","卖出_金额"
       
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_Identify] < " & mr("_Identify") & " And [股票名称] = \'" & mr("股票名称") & "\'", "[_Identify] Desc")
        If dr Is Nothing Then
            mr("仓储_金额1") = mr("卖出_金额") - mr("买入_金额")
            dr = mr
        Else
            mr("仓储_金额1") = dr("仓储_金额1")
        End If
       
        drs = e.DataTable.Select("[_Identify] >= " & dr("_Identify") & " And [股票名称] = \'" & dr("股票名称") & "\'", "[_Identify]")
        For i As Integer = 1 To drs.Count - 1
           
            drs(i)("仓储_金额1") = drs(i-1)("仓储_金额1") + drs(i)("卖出_金额") - drs(i)("买入_金额")
        Next
        If e.DataCol.Name = "股票名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
           
            dr = e.DataTable.Find("[_Identify] < " & mr("_Identify") & " And [股票名称] = \'" & e.OldValue & "\'", "[_Identify] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[股票名称] = \'" & e.OldValue & "\'", "[_Identify]")
                If dr IsNot Nothing Then
                    dr("仓储_金额1") = dr("卖出_金额") - dr("买入_金额")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_Identify] >= " & dr("_Identify") & " And [股票名称] = \'" & dr("股票名称") & "\'", "[_Identify]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("仓储_金额1") = drs(i-1)("仓储_金额1") + drs(i)("卖出_金额") - drs(i)("买入_金额")
                Next
            End If
        End If

 这个意思？

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

谢谢老师，4楼的代码可以的。

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

下面的代码，看上去数据有点乱，想修改成上图一样。

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

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

老师，打框的数据希望能显示。

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