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("[_SortKey] < " & mr("_SortKey") & " And [理财账户名称] = '" & mr("理财账户名称") & "' And [理财产品名称] = '" & mr("理财产品名称") & "'", "[_SortKey] Desc")
If dr Is Nothing Then
mr("当前持有金额") = mr("买入本金") - mr("赎回本金")
dr = mr
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [理财账户名称] = '" & mr("理财账户名称") & "' And [理财产品名称] = '" & mr("理财产品名称") & "'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("当前持有金额") = drs(i-1)("当前持有金额") + drs(i)("买入本金") - drs(i)("赎回本金")
Next
If (e.DataCol.Name = "理财账户名称" OrElse e.DataCol.Name = "理财产品名称") AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [理财账户名称] = '" & e.OldValue & "' And [理财产品名称] = '" & e.OldValue & "'", "[_SortKey] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[理财账户名称] = '" & e.OldValue & "' And [理财产品名称] = '" & 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 [理财账户名称] = '" & dr("理财账户名称") & "' And [理财产品名称] = '" & dr("理财产品名称") & "'", "[_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
上面标黄处是不是写得有问题
加好友 
发短信
Post By：2022/4/15 20:40:00 [只看该作者]
