Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:求教

1楼
btsfdz 发表于:2008/10/10 20:32:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:sy.table

表中年龄的列是自动计算出来的,如果不要出生年列,年龄的代码该如何编写,谢谢!
2楼
czy 发表于: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

3楼
yuanbin 发表于:2008/10/11 0:16:00
年龄的代码:
if e.datarow("出生日期") isnot nothing then
   e.DataRow("年龄") =Date.Today.year- e.datarow("出生日期").year
end if
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.