以文本方式查看主题

-  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=27276)
--  作者：foxtable589
--  发布时间：2012/12/27 12:44:00
--  如何计算年龄
例如我的表是：职工信息
职工信息表中有一个列项为：出生日期，有一列项为：年龄
请问怎么设置，年龄列项自动显示年龄？
求各位大侠帮忙。下面是我按说明里的介绍代码复制，可却出现错误，“e."是指什么？

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 
--  作者：lin_hailun
--  发布时间：2012/12/27 14:01:00
--  
 1，把代码写在写在 菜单->数据表->表属性->事件->datacolchanged事件里。

 修改出生日期以后，就会计算。如果要重新计算，就选中这一列，然后点 重置列。

 http://www.foxtable.com/help/topics/1469.htm