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