Select Case e.DataCol.name Case "进料检验单_入厂时间","进料检验单_报检时间" Dim dr As DataRow = e.DataRow If dr.IsNull("进料检验单_报检时间") Or dr.IsNull("进料检验单_入厂时间") Then dr("本次用时进料检验单_工期完成") = Nothing ElseIf dr.("进料检验单_报检时间") > = dr.(进料检验单_入厂时间) Then dr.("本次用时进料检验单_工期完成") = 0 Else dr.("本次用时进料检验单_工期完成") = 1 End If End Select
Select Case e.DataCol.name Case "进料检验单_入厂时间","进料检验单_报检时间" Dim dr As DataRow = e.DataRow Dim dl As Date = dr("进料检验单_报检时间") Dim dk As Date = dr("进料检验单_入厂时间")
If dr.IsNull(dl ) Or dr.IsNull(dk ) Then dr("进料检验单_工期完成") = Nothing ElseIf dl > = dk Then dr("进料检验单_工期完成") = "0" Else dr("进料检验单_工期完成") = "1" End If End Select