专家坐堂-分钟计算Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)("时间_结束")

目前都是小时，希望是分钟计算例如30分钟 45分种