主题：怎样设置

比如

Select Case e.DataCol.Name
    Case "开始日期","完成日期","类型"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("开始日期") OrElse dr.IsNull("完成日期") Then
            dr("执行天数") = Nothing
        ElseIf dr("类型") = "无期限" Then
            dr("执行天数") = Nothing

        Else

            Dim tp As TimeSpan = dr("完成日期") - dr("开始日期")
            dr("执行天数") = tp.TotalDays
        End If
End Select

参考这里

http://www.foxtable.com/webhelp/scr/0615.htm