示例四

下图的起始时间和计划结束时间是日期时间型列，日期时间格式为：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