Select Case e.DataCol.Name
Case "开始日期","完成日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("开始日期") OrElse dr.IsNull("完成日期") Then
dr("执行天数") = Nothing
Else
If dr("完成日期") = dr("开始日期")
dr("执行天数") = 1
Else
Dim tp As TimeSpan = dr("完成日期") - dr("开始日期")
dr("执行天数") = tp.TotalDays
End If
End If
End Select