主题：[求助]正负数

狐表老师，我要把大于0的前面加上+号小于0的加上-号

Select Case e.DataCol.Name
    Case "股piao名称","卖出_金额","买入_金额"

        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [股piao名称] = '" & mr("股piao名称") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("仓储_金额") = mr("卖出_金额") - mr("买入_金额")
            dr = mr
        Else
            mr("仓储_金额") = dr("仓储_金额")
        End If

        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [股piao名称] = '" & dr("股piao名称") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1

            drs(i)("仓储_金额") = drs(i-1)("仓储_金额") + drs(i)("卖出_金额") - drs(i)("买入_金额")
        Next
        If e.DataCol.Name = "股piao名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [股piao名称] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[股piao名称] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("仓储_金额") = dr("卖出_金额") - dr("买入_金额")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [股piao名称] = '" & dr("股piao名称") & "'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("仓储_金额") = drs(i-1)("仓储_金额") + drs(i)("卖出_金额") - drs(i)("买入_金额")
                Next
            End If
        End If
End Select

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

                                                                                                               谢谢

 mr("仓储_金额") = mr("卖出_金额") - mr("买入_金额")

 

应该应该改为：

 

 mr("仓储_金额") =  mr("买入_金额") - mr("卖出_金额")

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

 设置完成代码之后，要重置一下列股piao名称列，以便根据新的代码重算一次。

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

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

 编程是严谨的，我告诉你：

 

mr("仓储_金额") = mr("卖出_金额") - mr("买入_金额") 应该应该改为：  mr("仓储_金额") =  mr("买入_金额") - mr("卖出_金额")

 

可是你五楼的代码中，有一处是：

 mr("仓储_金额") =  mr("买入_金额") - mr("卖出_金额")

有三处是：

drs(i)("仓储_金额") = drs(i-1)("仓储_金额") + drs(i)("卖出_金额") - drs(i)("买入_金额")
dr("仓储_金额") = dr("卖出_金额") - dr("买入_金额")

drs(i)("仓储_金额") = drs(i-1)("仓储_金额") + drs(i)("卖出_金额") - drs(i)("买入_金额")

 

 

至少你得统一算法吧？ 到底是“买入 - 卖出”,还是“卖出 -买入”，你最清楚，根据你的图片，应该全是“卖出 - 买入”，统一改过来。

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

你一楼的要求和五楼的要求是矛盾的，你知道吗？

 

一楼要得到整数，必须：买入-卖出 

五楼要得到负数，必须：卖出-买入

 

自己先理清楚思路，然后修改代码。

老师，仓储_金额=买入_数量*买入_平均价，此时仓储_金额列是等于正数。卖出时低于买入_平均价此时仓储_金额列的数据应该是负数

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

点击浏览该文件:股piao管理.rar

 我不炒股，所以不懂你的算法，请描述一下

 

为啥1楼应该是1000，5楼应该是-100