主题：时间计算

Select Case e.DataCol.Name

    Case "下单时间","工时"

        If e.DataRow.IsNull("下单时间") = False AndAlso e.DataRow.IsNull("工时")= False Then

            Dim d As Date = e.DataRow("下单时间")

            d = d.AddMinutes( e.DataRow("工时"))

            e.DataRow("完成时间") = d

        End If

End Select