以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问下 年龄为何不自动更新了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173272)
--  作者：忆似水流年
--  发布时间：2021/11/22 12:01:00
--  请问下 年龄为何不自动更新了
 貌似以前可以的

项目事件 AfterOpenProject

DataTables(vars("table1")).DataCols("年龄").RaiseDataColChanged()

表事件 DataColChanged

Select Case e.DataCol.Name
    Case "身份证"
        If e.DataRow.IsNull("身份证") Then
            e.DataRow("出生日期") = Nothing
            e.DataRow("年龄") = Nothing
        Else If e.DataRow.IsNull("身份证") = False
            e.DataRow("出生日期") = ReadBirthDay(e.DataRow("身份证"))
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End If
End Select
--  作者：有点蓝
--  发布时间：2021/11/22 12:04:00
--  
DataTables(vars("table1")).DataCols("身份证").RaiseDataColChanged()