If e.DataCol.Name = "年度" OrElse e.DataCol.name = "期限" Then If e.DataRow.isnull("年度") OrElse e.DataRow.isnull("期限") Then e.DataRow("保管开始时间") = Nothing e.DataRow("保管截止时间") = Nothing Else e.DataRow("保管开始时间") = new Date(e.DataRow("年度")+1, 1, 1) e.DataRow("保管截止时间") = e.DataRow("保管开始时间").addyears(e.DataRow("期限")) End If End if