- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 年龄计算 (http://www.foxtable.com/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
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
Dim tp As TimeSpan = Date.today - d
e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
End If
End Select