Select Case e.DataCol.name
Case "上午_上班","上午_下班"
Dim dr As DataRow = e.DataRow
If dr.IsNull("上午_上班") Or dr.IsNull("上午_下班") Then
dr("总时间") = Nothing
Else
Dim tp As TimeSpan
tp = dr("上午_下班") - dr("上午_上班")
dr("总时间") = tp.TotalSeconds()
End If
End Select
[此贴子已经被作者于2014-3-15 21:57:50编辑过]