以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]根据“出生年月日”列，求“年龄”的表达式。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7314)
--  作者：八路军参谋长
--  发布时间：2010/6/7 9:12:00
--  [求助]根据“出生年月日”列，求“年龄”的表达式。


根据“出生年月日”列，求“年龄”的表达式。

狐表

 

谢谢
--  作者：yangming
--  发布时间：2010/6/7 10:07:00
--  

表达式的函数有限，不要用吧，还是用表事件吧 ，帮助中有现成的示例，输入年龄就能搜到

示例

例如年龄列由出生日期计算得出，我们将DataColChanged事件设为：

If e.DataCol.Name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then \'如果没有输入出生日期
        e.DataRow("年龄") = Nothing \'则清空年龄
    Else
        \'否则计算年龄
        e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
    End If
End If

如果到了明年，需要重新计算年龄列，但是除非你重新输入出生日期，否则上面的代码是不会重算年龄的。
不过你可以通过下面的代码，强行针对出生日期列触发DataColChanged，效果就像你重新输入了出生日期一样：

DataTables("员工").DataCols("出生日期").RaiseDataColChanged()

[此贴子已经被作者于2010-6-7 10:08:25编辑过]
--  作者：八路军参谋长
--  发布时间：2010/6/7 10:09:00
--  
我只整“应用篇”的
--  作者：八路军参谋长
--  发布时间：2010/6/7 10:16:00
--  
看样子，逼着我学开发篇了
--  作者：yangming
--  发布时间：2010/6/7 10:36:00
--  
表达式无法做到，学学开发篇又何妨呢，呵呵
[此贴子已经被作者于2010-6-7 10:36:24编辑过]
--  作者：擎天柱
--  发布时间：2010/6/7 18:15:00
--  
下面的可供参考： http://www.foxtable.com/dispbbs.asp?boardid=2&Id=6388&page=23 是用表达式做的，但需指定起止日期。如果计算当前的年龄，那就要用代码了。
[此贴子已经被作者于2010-6-7 18:16:29编辑过]
--  作者：八路军参谋长
--  发布时间：2010/6/7 18:59:00
--  

先谢谢了。慢慢看去，我