Dim dc As DataCol = e.DataCol Dim dr As DataRow = e.DataRow If dc.Name = "起始T点" OrElse dc.Name = "生产作业安排_用时长m"Then If dr.IsNull("起始T点") OrElse dr.IsNull("生产作业安排_用时长m") Then dr("生产作业安排_结束T点") = Nothing Else dr("生产作业安排_结束T点") = dr("起始T点").AddMinutes(dr("生产作业安排_用时长m")) End If End If