主题：请问下 年龄为何不自动更新了

 貌似以前可以的

项目事件 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