假定“生产作业安排_用时长m”是通过名为A、B的两列计算得出,你的代码应该改为:
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