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("宝宝月龄") = Math.Round((ts.Days /30),1)End If