If e.DataCol.Name = "生产日期" And e.Datarow.IsNull("生产日期") = False Then Dim d1 As Date = CurrentTable.Current("生产日期") Dim d2 As Date = Date.Today Dim ts As TimeSpan = d2 - d1 e.datarow("距今天数") = ts.DaysEnd If