求教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有21204人关注过本帖树形打印复制链接主题：求教

btsfdz

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：86 积分：951 威望：0 精华：0 注册：2008/9/2 20:04:00

求教

Post By：2008/10/10 20:32:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sy.table

表中年龄的列是自动计算出来的，如果不要出生年列，年龄的代码该如何编写，谢谢！

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2008/10/11 0:14:00 [只看该作者]

if e.DataRow("身份证号") IsNot Nothing Then

Dim t As Integer = Date.Today.year

Dim y As Date = ReadBirthday(e.DataRow("身份证号"))

Dim d AS Integer = y.Year

e.DataRow("年龄") = t - d

End if

yuanbin

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：102 积分：880 威望：0 精华：4 注册：2008/8/31 21:47:00

Post By：2008/10/11 0:16:00 [只看该作者]

年龄的代码：
if e.datarow("出生日期") isnot nothing then
e.DataRow("年龄") =Date.Today.year- e.datarow("出生日期").year
end if

主题：求教