主题：时间段如何计算

Dim d1 As Date = e.DataRow("startdatetime")
Dim d2 As Date = e.DataRow("enddatetime")
Dim t As TimeSpan = d2 - d1
Select Case e.DataCol.Name
       Case "startdatetime"
       e.DataRow("TimeSpan")=t.TotalMinutes
End Select