- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 身份证号码和年龄 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21808)
-- 发布时间：2012/7/25 10:49:00
-- 身份证号码和年龄
两个相邻的列为身份证号码和年龄，如图：
此主题相关图片如下：jej3w`h2g5b8msv7~b%4bs.jpg
，
可以设置档输入完身份证号码后年龄列的年龄自动生成出来呢？
-- 发布时间：2012/7/25 11:09:00
--
当前时间减去生日就行了。
-- 发布时间：2012/7/25 11:12:00
--
具体怎么弄啊！求具体操作和实现过程的方法！小弟白的很！
-- 发布时间：2012/7/25 11:19:00
--
试试这样:
If e.DataCol.Name = "第一列" Then
If e.DataRow.IsNull("第一列") = False
Dim d As Date
Dim i As Integer
d = ReadBirthday(e.DataRow("第一列"))
i = DateDiff("yyyy",d,Date.today)
e.DataRow("第二列") = i & "岁"
Else
e.DataRow("第二列")=Nothing
End If
End If
-- 发布时间：2012/7/25 11:20:00
--
e.DataRow("第二列")=now.year-ReadBirthDay(e.DataRow("第一列")).year
-- 发布时间：2012/7/25 11:21:00
--
好，这个放在哪个事件中呢？
-- 发布时间：2012/7/25 11:22:00
--
DataColChanged
-- 发布时间：2012/7/25 11:23:00
--
哦~~，我先试试
-- 发布时间：2012/7/25 11:41:00
--
加入后报了个错，如下：
此主题相关图片如下：qqhhh51gwlu_lpvt_7v_)ex.jpg
哪儿不对哦？
-- 发布时间：2012/7/25 11:57:00
--
这个行，谢了哈！