以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 根据生日如何计算年龄 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65766) |
-- 作者:qixialcl -- 发布时间:2015/3/22 19:05:00 -- 根据生日如何计算年龄 大家好,我刚接触foxtable ,自己制作一份表格,想以此来提高工作效率,但是根据生日来计算年龄的表达式一直不对,请各位大侠能帮忙解决一下!,精确到月就可以! |
-- 作者:有点甜 -- 发布时间:2015/3/22 19:06:00 --
参考 http://www.foxtable.com/help/topics/2647.htm
|
-- 作者:qixialcl -- 发布时间:2015/3/22 21:56:00 -- 谢谢大侠! Select Case e.DataCol.name Case "生日" If e.DataRow.IsNull("生日") Then e.DataRow("年龄_年") = Nothing e.DataRow("年龄_月") = Nothing e.DataRow("年龄_日") = Nothing Else Dim y,m,d As Integer DateYMD(e.DataRow("生日"),Date.Today,y,m,d) e.DataRow("年龄_年") = y e.DataRow("年龄_月") = m e.DataRow("年龄_日") = d End If End Select 这是我按照例子更改的代码,为什么显示:编译错误“e"是private,因此它在此上下文中 不可访问
|
-- 作者:有点甜 -- 发布时间:2015/3/22 21:57:00 -- 1、代码写到Datacolchanged事件;
2、如果还报错,就关闭项目,重新打开,再写代码 |
-- 作者:qixialcl -- 发布时间:2015/3/22 22:15:00 -- 谢谢! 这次没有报错,在Datacolchanged栏目里显示{集合},但是在表格里不显示数据
|
-- 作者:有点甜 -- 发布时间:2015/3/22 22:30:00 -- 代码没问题,你填入生日,或者重置列 http://www.foxtable.com/help/topics/1469.htm
|