Select Case e.DataCol.name Case "入藏日期","入库日期" If e.DataRow.IsNull("入藏日期") OrElse e.DataRow.IsNull("入库日期") Then e.DataRow("藏库间隔") = Nothing Else Dim dt1 As Date = e.DataRow("入藏日期") Dim dt2 As Date = e.DataRow("入库日期") Dim d= (dt2-dt1).TotalDays() e.DataRow("藏库间隔") = d End If End Select
|