Select Case e.DataCol.Name
Case "理财账户产品名称","日期"
Dim bjs As new List(Of String)
bjs.Add(e.DataRow("理财账户产品名称"))
If e.DataCol.Name = "e.DataCol.Name" Then
bjs.Add(e.oldvalue)
End If
For Each bj As String In bjs
Dim drs As List(Of DataRow) = DataTables("公司理财项目明细账").Select("[理财账户产品名称] = '" & bj & "' and 日期 is not null", "日期")
If drs.Count = 0 Then
drs(0)("当前金额持有天数") = (Date.Today - cdate(drs(0)("日期"))).TotalDays
Else
For n As Integer = 0 To drs.Count - 2
Dim dn As Date = drs(n)("日期")
Dim dn1 As Date = drs(n+1)("日期")
Dim tp As TimeSpan = dn1 - dn
drs(n)("当前金额持有天数") = tp.TotalDays
Next
If drs(drs.Count - 1)("当前持有金额")<>0 Then
drs(drs.Count - 1)("当前金额持有天数") = (Date.Today - cdate(drs(drs.Count - 1)("日期"))).TotalDays
Else
drs(drs.Count - 1)("当前金额持有天数") = Nothing
End If
Next
End If
End Select
加好友 
发短信
Post By：2022/4/16 16:25:00 [只看该作者]
