- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=826)
-- 发布时间：2008/10/10 20:32:00
-- 求教
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:sy.table |
表中年龄的列是自动计算出来的，如果不要出生年列，年龄的代码该如何编写，谢谢！
-- 发布时间：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
-- 发布时间：2008/10/11 0:16:00
--
年龄的代码：
if e.datarow("出生日期") isnot nothing then
e.DataRow("年龄") =Date.Today.year- e.datarow("出生日期").year
end if