以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  年龄计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157319)

--  作者:我非英雄
--  发布时间:2020/10/12 11:08:00
--  年龄计算
在什么条件下才能看到  DataColChanged事件  我在表属性里面找不到这个项目?,我的目的是通过身份证号计算出年龄,但是年龄得随着系统时间变化而变化。
图片点击可在新窗口打开查看此主题相关图片如下:2020-10-12_110544.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2020-10-12_110603.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/10/12 11:10:55编辑过]

--  作者:有点蓝
--  发布时间:2020/10/12 11:17:00
--  
您打开的是列属性,而不是表属性:http://www.foxtable.com/webhelp/topics/1445.htm
--  作者:我非英雄
--  发布时间:2020/10/12 11:20:00
--  
能给个 通过身份证号码 计算年龄的 公式吗?

图片点击可在新窗口打开查看此主题相关图片如下:2020-10-12_112021.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/10/12 11:20:35编辑过]

--  作者:有点蓝
--  发布时间:2020/10/12 11:27:00
--  
年龄计算参考:http://www.foxtable.com/webhelp/topics/2647.htm

Select Case e.DataCol.name 
    Case "
身份证号"
        If e.DataRow.IsNull("
身份证号"Then
            e.DataRow("
年龄") = Nothing
        Else
dim d as date = ReadBirthDay(e.DataRow("身份证号"))
            Dim tp As TimeSpan = Date.today - d
            e.DataRow("
年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End 
If

End
 Select