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("开始时间")
Dim v As Double = tp.TotalSeconds()
dr("通话时长") = format(tp.TotalSeconds() \ 3600, "00") & ":" & format((tp.TotalSeconds() mod 3600) \ 60, "00") & ":" & format(tp.TotalSeconds() mod 60, "00")
End If
End Select