狐表老师,我要把大于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
谢谢