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