以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据生日如何计算年龄  (http://foxtable.net/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