以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  年龄不自动更新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145119)
--  作者：nxqtxwz
--  发布时间：2020/1/9 9:16:00
--  年龄不自动更新

老师好，我表中自动计算年龄，代码写在DataColChanged事件中，发现出生日期列不变化，年龄就不计算。

我想让年龄保持时时更新，想把代码放在AfterLoad中怎么写代码呢？

 

If e.DataCol.Name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then \'如果没有输入出生日期
        e.DataRow("年龄") = Nothing \'则清空年龄
    Else
        \'否则计算年龄
        e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
    End If
End If
--  作者：有点蓝
--  发布时间：2020/1/9 9:33:00
--  
到afteropenproject事件判断如果是1月1日，就重置一下列即可，这种计算方式1年内都不可能有变化的