Select Case e.DataCol.name
Case "时间_开始", "时间_时长"
Dim dr As DataRow = e.DataRow
If dr.IsNull("时间_开始") Or dr.IsNull("时间_时长") Then
dr("时间_结束") = Nothing
Else
Dim dt As Date = dr("时间_开始")
dr("时间_结束") = dt.AddSeconds(dr("时间_时长")) '注意时段型列是以秒为单位参与计算的
End If
End Select
Dim dwr As DataRow
Dim drs As List(Of DataRow)
dwr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行
If dwr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
dwr = e.DataRow
End If
drs = e.DataTable.Select("[_SortKey] >= " & dwr("_SortKey"), "[_SortKey]")
For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
drs(i)("时间_开始") = drs(i - 1)("时间_结束")
Next
目前都是小时，希望是分钟计算 例如30分钟 45分种
[此贴子已经被作者于2024/1/10 16:13:59编辑过]
加好友 
发短信
Post By：2024/1/10 16:14:00 [显示全部帖子]
