帮助有现成的例子:
其中示例四就是了:
示例四
下图的起始时间和计划结束时间是日期时间型列,日期时间格式为:DateTime。
计划用时是一个双精度小数列,扩展列类型为:时段型
为了根据起始时间和计划用时,算出计划结束时间,可以将该表的DataColChanged时间代码设置为:
Select Case e.DataCol.name
Case "起始时间","计划用时"
Dim dr As DataRow = e.DataRow
If dr.IsNull("起始时间") Or dr.IsNull("计划用时") Then
dr("计划结束时间") = Nothing
Else
Dim dt As Date = dr("起始时间")
dr("计划结束时间") = dt.AddSeconds(dr("计划用时")) '注意时段型列是以秒为单位参与计算的
End If
End Select
你的:
Select Case e.DataCol.Name
Case "排序时间", "理论加工耗时"
Dim dr As DataRow = e.DataRow
If dr.Isnull("排序时间") = False AndAlso dr.Isnull("理论加工耗时") = False Then
Dim dt As Date = dr("排序时间")
dr("理论完成时间") = dt.AddHours(dr("理论加工耗时"))
Else
dr("理论完成时间") = Nothing
End If
End Select