以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于日期计算的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123273)
--  作者：有点蓝
--  发布时间：2018/8/10 23:13:00
--  
xz = dr.DataRow("学制")
--  作者：有点蓝
--  发布时间：2018/8/11 9:15:00
--  
Select Case e.DataCol.name
    Case "入学日期" , "学制"      \'判断"入学日期" , "学制"  是否改变
        If e.DataRow.IsNull("入学日期") Or e.DataRow.IsNull("学制") Then   \'判断入学日期与学制是否为空
            e.DataRow("毕业日期") = Nothing
            
        Else
            e.DataRow("毕业日期") = e.DataRow("入学日期").AddYears(e.DataRow("学制"))     \'=毕业日期=入学年+学制
            Dim sfby As String
            If e.DataRow("毕业日期") < Date.Today   Then
                e.DataRow("是否毕业")="已毕业"
            Else
                e.DataRow("是否毕业")="未毕业"
            End If
        End If
End Select